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'DENTIF 1 CATION 

PRODUCT CODE: MAINDEC-11-O02DU0-B8-D 
PRODUCT NAME: DUVI1 OFFLINE LOGIC TESTS 
RELEASE DATE: NOV. 1977 

MAINTAINER : DIAGNOSTICS 


COPYRIGHT (C) 1977 
DIGITAL EQUIPMENT CORPORATION. MAYNARD MASS 


THE INFORMATION IN fHIS DOCUMENT 1S SUBJECT TO CHANGE WITHOUT NOTICE AND 


SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR ANY ERRORS 
THAT MAY APPEAR IN THIS DOCUMENT. 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A LICENSE AND 
MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE OF 
RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT |S NOT SUPPLIED BY DIGITAL. 





_ REM 





SEQ 0001 
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.REM & 
GENERAL DESCRIPTION 


THIS DIAGNOSTIC CAN CHAIN 16 DUVI1'S. THIS MEANS THAT 

16 DEVICES CAN BE SEQUENTIALLY EXERCISED. THE DIAGNOSTIC 
MAKES ONE PASS BEFORE PROCEEDING TO THE NEXT DEVICE. 

AND CONTINUES EXERCISING ALL DEVICES IN THIS FASHION UNTIL 


HALTED. 
x 
. REM x 
i. THE DUV11 OFFLINE LOGIC TESTS VERIFY THAT ALL REGISTERS EXIST 
AND ALL RESPECTIVE BITS CAN BE MASTER CLEARED, READ. 
WRITTEN AND/OR READ/WRITTEN . 
_ REM x 


2. REQUIREMENTS 
POP-11/03 COMPUTER (LSI) 
DUV11 SYNCRONOUS/!ISOCRONOUS OPTION 
ONE CONSOLE TELETYPE OR EQUIVALENT 


2.2 STORAGE 
THE PROGRAM LOADS INTO 4K OF MEMORY WITH BOOTSTRAP 


‘ 3. LOADING PROCEDURE 


THE STANDARD PROCEDURE FOR LOADING ABSOLUTE BINARY TAPES 
1S TO BE USED. 


STARTING ADDRESS 
FOR ABSOLUTE LOADER 


4K 017500 
8K 037500 
12K 057500 
16K 077500 
20K 117500 
24K 137500 
28K 157500 

4. STARTING PROCEDURE 

4.1 CONTROL SWITCH SETTINGS 


NOTE: ALL SWITCHES RESIDE INTERNAL TO THE CPU AT ADDRESS 
176. THESE MAY BE SET VIA THE CONSOLE TTY BY DIRECTLY 
MODIFYING LOC. 176. 


NOTE: RUNNING UNDER APT-11. THERE IS A USER SWITCH REGISTER 
CALLED “SUSWR". IN ORDER TO BE FLEXIBLE ON THE AVAILIBILITY OF THE 
H315 CONNECTOR. ONE BIT PASSES STATUS TO APT-11. 
BIT O IN SUSWR REFLECTS THIS STATUS, A O = CONNECTOR 
PRESENT. A 1 = CONNECTOR NOT AVAILIBLE. 
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THE USER CHANGES THE CONTENTS OF THIS LOCATION 
WHEN BUILDING THE E TABLE. BY ANSWERING THE 
PROMPT "SWITCH 2”. 


AFTER PROGRAM LOAD (INITIAL PROGRAM START) 
ALL CONSOLE SWITCHES DOWN 


TO MODIFY DEVICE VECTOR AND CONTROL REGISTER ADDRESSES 
AFTER PROGRAM RESTART OR TO RUN MULTIPLE DEVICES 


SWO0=1 

TO START PROGRAM AT SELECTED TEST AFTER A PROGRAM RESTART 
(ONLY IN SINGLE DEVICE TESTS) 

SWO1=1 

TO LOCK ON SELECTED TEST AFTER A PROGRAM RESTART 
(ONLY IN SINGLE DEVICE TESTS) 

SWi4=1 

NOTE1: IN GENERAL SWO1 WILL BE USED WHEN SW14=1 IS USED 

NOTE2: WITHOUT SWO1i=1 "LOCK ON TEST” WILL DEFAULT TO TEST 1 

STARTING ADDRESS 

THE STARTING ADDRESS FOR ALL TESTS !S 000200 

THE RETARTING ADDRESS FOR ALL TESTS IS 000200 

THE STARTING ADDRESS TO ENTER A SELECTED TEST 1S 000200 

THE STARTING ADDRESS TO LOCK ON TEST {|S 000200 

PROGRAM AND/OR OPERATOR ACTION 

INITIAL PROGRAM START 

4 3.1.1 LOAD PROGRAM INTO MEMORY WITH ABSOLUTE LOADER 

4 3.1.2 SET SWITCH REGISTER (LOC. 176) TO ZERO. 

4.3.1.3 TYPE 2006. 


4. 3.1.4 PROGRAM WILL START. 


4. 3.1.5 THE PROGRAM WILL TYPE “DUV11 DZ2DUQ-B TAPE A” (ONCE ONLY) 
4. 3.1.6 THE PROGRAM WILL TYPE “R" TO INDICATE THAT !T 1S ABOUT 
TO START TESTING . AND THEN TESTING WILL BEGIN 

PROGRAM RESTART WITH ALL SWITCHES DOWN 

4. 3.2.1 THE PROGRAM WILL TYPE “R” AND WILL COMMENCE TESTING 
PROGRAM RESTART WITH SWOO=1 


_ REM 


_ REM 


SEQ 0003 
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4. 3. 3. 
4.3.3. 
4. 3. 3. 
4.3.3. 


4. 3.3. 


= Ww WD =— 


4.3.3.6 
FROM THE TELETYPE KEYBOARD 


INPUT 


e. 2. 2. 


? 
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SET SWITCH REGISTER (LOC. 176) TO A 000001. 
TYPE 2006. 
PROGRAM WILL START. 


THE PROGRAM WILL TYPE “ 1ST DEVICE: RECEIVER CONTROL REGISTER 
ADDRESS" AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 


TYPE IN THE ADDRESS OF THE FIRST RECEIVER CONTROL 


REGISTER ADDRESS OF THE DUV11 TO BE TESTED 
FOLLOWED BY A <CARRIAGE RETURN> 


IF AN INCORRECT ADDRESS IS TYPED . THE PROGRAM WILL TYPE "?" 
AND WILL THEN REPEAT THE MESSAGE OF 4.3.3.4 
THE PROGRAM WILL TYPE "VECTOR ADDRESS-" AND WAIT FOR AN 


TYPE IN THE BASE RECEIVER INTERRUPT VECTOR ADDRESS 
FOR THE DUV11 TO BE TESTED FOLLOWED BY A <CARRIAGE RETURN> 


IF AN INCORRECT ADDRESS 1S TYPED . THE PROGRAM WILL TYPE "?" 
AND WILL THEN REPEAT THE MESSAGE OF 4.3.3.6 


THE PROGRAM WILL TYPE “ARE YOU RUNNING MULTIPLE DEVICES 2" 
(Y OR N)-" AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 


TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED BY A 
<CARRIAGE RETURN> 


IF AN INCORRECT ANSWER 1S GIVEN, THE PROGRAM WILL TYPE "?" 
AND WILL THEN REPEAT THE MESSAGE OF 4.3.3.8 


IF A “NO” ANSWER 1S GIVEN: JUMP TO SECTION 4. 3.3.12 
IF A “YES" ANSWER 1S GIVEN: THE NEXT QUESTION IS ASKED 


THE PROGRAM WILL TYPE "LAST DEVICE: RECEIVER CONTROL 


10 
REGISTER ADDRESS-" AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 


TYPE IN THE ADDRESS OF THE LAST RECEIVER CONTROL REGISTER 


11 
ADDRESS OF THE DUV11 TO BE TESTED FOLLOWED BY A <CARRIAGE RETURN> 


3.11. 


IF AN INCORRECT ANSWER IS TYPED . THE PROGRAM WILL TYPE “=” 
AND WILL THEN REPEAT THE MESSAGE OF 4. 3.3.10 
NOTE: ALL ADDRESSES SHALL BE CONTIGUOUS 


1 IF AN “OUT OF RANGE” ADDRESS IS TYPED 
1€. MORE THAN 16 (10) DEVICES AWAY (UPWARDS)..... THE 
PROGRAM WILL TYPE “OUT OF RANGE: RETYPE LAST DEVICE RXCSR ADDRESS-" 


———— 


SEQ 0004 
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AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 


S22 11.2 TYPE IN THE ADDRESS OF THE LAST RECEIVER CONTROL 
REGISTER ADDRESS OF THE DUV11 TO BE TESTED FOLLOWED 
BY A <CARRIAGE RETURN> 


IF AN INCORRECT ANSWER 1S TYPED . THE PROGRAM WILL TYPE "7?" 
AND WILL REPEAT THE MESSAGE OF 4.3.3.11.1 


IF A DEVICE ADDRESS LOWER THAN 1ST DEVICE ADDRESS IS TYPED........... 
» POS GUT. ces a4 THERE 1S NO PROTECTION FOR THIS. 

THE PROGRAM WILL DEFAULT TO TWO DEVICES ACTIVE (UPWARDS FROM 

1ST DEVICE ADDRESS). THE SAME APPLIES TC IDENTICAL ADDRESSES 

TYPED FOR FIRST AND LAST DEVICE. 

OBSERVE LOCATION @ ACTREG: SEF SECTION 7.2 


4. 3.3.12 THE PROGRAM WILL TYPE “# OF SYNC CHARS 
SELECTED (1 OR 2)-" AND WAIT FOR AN INPUT FROM THE TELETYPE 
KEYBOARD. REFER TO MANUAL FOR PROPER SWITCH SETTINGS OF 
SWITCH E55-4. 


&. 3. 3.13 TYPE IN THE APPROPRIATE ANSWER "1" OR "2" FOLLOWED 
BY A <CARRIAGE RETURN>. (NOTE: ALL MULTIPLE DEVICES MUST 
BE THE SAME) 


IF AN INCORRECT ANSWER IS TYPED . THE PROGRAM WILL TYPE “?" 
AND WILL REPEAT THE MESSAGE OF 4. 3.3.12 


%. 3.3. 1% THE PROGRAM WILL TYPE “ IS SEC XMIT SWITCH E55-2 ON? (Y OR N)-" 
AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 
4. 3.3.15 TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED 


BY A <CARRIAGE RETURN>. (NOTE THAT ALL MULTIPLE DEVICES 
MUST BE THE SAME) 


IF AN INCORRECT ANSWER IS TYPED . THE PROGRAM WILL TYPE “?” 
AND WILL REPEAT THE MESSAGE OF 4. 3.3. 14 


4. 3.3. 16 THE PROGRAM WILL TYPE “IS SEC REC SWITCH E55-3 ON? 
(Y OR N)-" AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 
e323 17 TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED 


BY A <CARRIAGE RETURN>. (NOTE: AcL MULTIPLE DEVICES MUST BE THE SAME) 
IF AN INCORRECT ANSWER 1S TYPED . THE PROGRAM WILL TYPE “=” 
AND WILL REPEAT THE MESSAGE OF 4. 3.3.16 


4. 3.3.18 THE PROGRAM WILL TYPE “IS OPT CLR ENABLE SWITCH 
E55-1 ON? (Y OR N)-" AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 


4. 3.3.19 TYPE iN THE APPROPRIATE ANSWER YES OR NO FOLLOWED 
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BY A <CARRIAGE RETURN>. (NOTE: ALL MULTIPLE DEVICES MUST BE THE SAME) 


IF AN INCORRECT ANSWER IS TYPED . THE PROGRAM WILL TYPE "?” 
AND WILL REPEAT THE MESSAGE OF 4. 3.3.18 


4. 3.3.20 THE PROGRAM WILL TYPE “ARE YOU RUNNING IN MAINT. 
MODE EXTERNAL ? AND...... DO YOU HAVE THE EXTERNAL MODEM 
BYPASS JUMPER CONNECTOR ON ? (Y OR N)-" AND WAIT FOR AN 
INPUT FROM THE TELETYPE KEYBOARD 


4. 3.3.21 TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED BY 
A <CARRIAGE RETURN>. (NOTE: ALL MULTIPLE DEVICES MUST BE THE SAME) 
IF AN INCORRECT ANSWER IS TYPED . THE PROGRAM WILL TYPE “?”" 
AND WILL REPEAT THE MESSAGE OF 4. 3. 3. 20 


4 3.3.22 THE PROGRAM WILL TYPE "R" TO INDICATE THAT IT 
HAS STARTED AND WILL COMMENCE TESTING AT TEST 1 


PROGRAM RESTART WITH SWO1=1 
NOTE: THIS WILL ONLY WORK WHEN A SINGLE DEVICE 1S SELECTED 
,1T WILL NOT WORK IF MULTIPLE DEVICES ARE SELECTED 
IF MULTIPLE DEVICES WERE PREVIOUSLY SELECTED,LOAD 000200. 
AND SELECT sWOO=1 AND ANSWER "NO" TO THE MULTIPLE DEVICE QUESTION 
SEE 4.3.3 
4 3.4.1 SET SWO1=1 IN SWITCH REG (LOC. 176) 
4 3.4.2 TYPE 200G. 
4. 3.4. 3 FROGRAM WILL START. 
y 


_ 3.4.4 THE PROGRAM WILL TYPE “TEST PC-" AND WAIT FOR AN INPUT FROM 
THE TELETYPE KEYBOARD 


4.3.4.5 TYPE IN THE ADDRESS OF THE TEST AT WHICH THE PROGRAM IS TO 
BE STARTED FOLLOWED BY A <CARRIAGE RETURN> 


4. 3.4.6 THE PROGRAM WILL TYPE “R" TO INDICATE THAT IT HAS STARTED 
TESTING AT THE SELECTED TEST 


NOTE: CARE MUST BE TAKEN WHEN THIS FEATURE IS USED 
,SINCE THERE 1S NO PROTECTION AGAINST SELECTING AN ADDRESS 
THAT 1S IN THE MIDDLE OF A TEST 

PROGRAM RESTART WITH SW14 =1 

NOTE: THIS WILL ONLY WORK WHEN A SINGLE DEVICE IS SELECTED 

SEE NOTE IN 4. 3.4 FOR MORE DETAILS 

4 3.5.1 SET SW14=1 IN SWITCH REG (LOC. 176) 


4 3.5.2 TYPE 2006. 
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4. 3.5. 3 PROGRAM WILL START. 


4. 3.5.4 THE PROGRAM WILL TYPE “LOCK ON SELECTED TEST 7? (Y OR N)-" 
AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 


4.3.5.5 TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED BY A 
<CARRIAGE RETURN> 


IF A NO ANSWER IS GIVEN: THIS LOCK ON TEST WILL BE IGNORED 
AND THE PROGRAM WILL TYPE “R" TO INDICATE THAT IT HAS STARTED 
TESTING AT TEST 1 


4.3.5.6 IF A YES ANSWER WAS GIVEN: THE PROGRAM WILL ACT AS FOLLOWS. . 
THE PROGRAM WILL TYPE “R" TO INDICATE THAT IT HAS STARTED 
TESTING AT TEST 1 AND WILL REMAIN IN TEST 1 UNTIL HALTED 
OR \F ANY KEY IS STRUCK ON THE TELETYPE . THE PROGRAM 
WILL FREEZE ON THE NEXT TEST UNTIL A KEY IS STRUCK ON 
THE TELETYPE AND SO FORTH THRU THE PROGRAM. IF SWO1 =1 IT 
WILL PERFORM AS IN SECTION 4.3.4 ALLOWING ONE TO FREEZE 
ON A SELECTED TEST RATHER THAN DEFAULTING TO TEST 1 


8. OPERATING PROCEDURE 
5.1 OPERATIONAL SWITCH SETTINGS (INTERNAL TO THE CPU, ACCESSED VIA LOC. 176). 
SW15 =1 HALT ON ERROR 
SW14 =1 LOOP ON CURRENT TEST 
SW13 =1 INHIBIT ERROR TYPEOUT 
SH11 =1 INHIBIT ITERATIONS 
SW10 =1 ESCAPE TO NEXT TEST ON ERROR 
SWO9 =1 LOOP ON ERROR 
SWO1 =1 RESTART PROGRAM AT SELECTED TEST 
SWOO =1 RESELECT VECTOR AND CONTROL REGISTER ADRESSES 


BRPARAMETERS AFTER A PROGRAM RESTART 
TO INHIBIT “END OF PASS" TYPEOUT - TURN TELETYPE OFF 


6. ERRORS 


6.1 ERROR HALTS (UNDER LS! ALL HALT ERRORS RETURN CONTROL TO 0.D.T.) 
THERE ARE FOUR DISTINCT ERROR TYPEOUTS 


6.1.1 PC+2 = ERROR PC 
WHERE PC +2 1S THE ADDRESS OF THE CALL TO THE ERROR HANDLER +2 


REFER TO THE ABOVE “HLT” IN DIAGNOSTIC FOR ERROR DESCRIPTION 


CHECK ADDRESS @ RXCSR: TO LOCATE THE DEVICE PRESENTLY UNDER 
TEST WHEN RUNNING MULTIPLE DEVICES 


6.1.2 PC +2 = REGISTER ERROR PC 
REGISTER EXPECTED ACTUAL 
16XXXX YYYYYY 222222 
WHERE 16XXXX 1S THE ADDRESS OF THE FAILING DEVICE REGISTER 


WHERE YYYYYY 1S THE EXPECTED CONTENTS OF THAT REGISTER 
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WHERE 222222 |S THE ACTUAL CONTENTS OF THAT REGISTER 


PC +2 = RECEIVER ERROR PC 
REGISTER EXPECTED ACTUAL 
16XXXX YYYYYY 222222 


WHERE 16XXXX 1S THE ADDRESS OF THE FAILING RECEIVER (RXDBUF) REGISTER 
WHERE YYYYYY 1S THE EXPECTED DATA CONTENTS OF THAT REGISTER 

WHERE 222222 1S THE ACTUAL DATA CONTENTS OF THAT REGISTER 

PC +2 = TRANSMITTER ERROR PC 

REGISTER EXPECTED ACTUAL 

16XXXX YYYYYY 222222 

WHERE 16XXXX IS THE ADDRESS OF THE FRILING TRANSMITTER (TXCSR) REGISTER 
WHERE YYYYYY IS THE EXPECTED CONTENTS OF THAT REGISTER 

WHERE 222222 1S THE ACTUAL CONTENTS OF THAT REGISTER 


ERROR DESCRIPTIONS 
SEE LISTINGS FOR DETAILS OF ERRORS 


ERROR RECOVERY 


SW15 =0 
IF THE PROGRAM 1S RUN WITH SW15 =0 .NO OPERATOR ACTION IS 
REQUIRED TO CONTINUE TESTING 


SW15 =1 

1F THE PROGRAM IS RUN WITH SW15 =1 .TO CONTINUE TESTING 
AFTER THE PROGRAM HAS HALTED .PRESS THE PROCESSOR 
CONSOLE “CONTINUE SWITCH" 


NOTE: THE PC + 2 OF THE "HLT" WILL BE DISPLAYED IN THE DATA LiGHTS 


ILLEGAL INTERRUPTS 

IF AN INTERRUPT OCCURS TO % VECTOR ADDRESS NOT SELECTED 
DURING PROGRAM INITIALIZAi: ON. THE PROGRAM WILL HALT IN 
THE TRAPCATCHER THE ADDRESS AT WHICH THE PROGRAM 

HALTS 1S 2 GREATER THAN THE ADDRESS TO WHICH THE INTERRUPT 
OCCURED. THE PROGRAM MUST BE RESTARTED AT 000200 TO 
RECOVER FROM THIS ERROR. 


ADDITIONAL TROUBLESHOOTING AIDS ERRCNT: & PASCNT: 


CHECK THESE TWO TAG LOCATIONS FOR TOTAL # OF ERRORS AND PASSES PESPECTIVELY 


LOADING 000200 AND RESTARTING WILL CLEAR THESE LOCATIONS 


END OF PASS ROUTINE 
THIS TYPEQUT 1S MENTIONED HERE FOR CONVENIENCE 
1T 1S IN THE FORM: 


SEQ 0008 
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NM 
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7.3 


TF 


7% 
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END OF PASS TAPE Y 
16XXXX = DEVICE 


WHERE Y IS THE TAPE LOADED 

WHERE 16XXXX 1S THE DEVICE'S BASE REGISTER ADDRESS 
TC INHIBIT THIS TYPEOUT - TURN TELETYPE OFF 
RESTRICTIONS 


MULTIPLE DEVICES 
UP TO 16(10) DEVICES MAY BE TESTED. HOWEVER. THEY 
MUST HAVE CONTIGUOUS ADDRESSES AND VECTORS 


NOTE: IF ALL DEVICES UNDER TEST HAVE THE SAME INTERRUPT VECTOR 
YOU CAN CHANGE "ZERO: ADD #10, BASEIV >NEXT BLOCK 
(VECTORS)" TO “ZERO: ADD #0, BASE IV"; 

THEREBY THE VECTOR ADDRESSES W!LL NOT BE 

UPDATED AFTER EACH PASS 


DISQUALIFYING DEVICES WHEN RUNNING MULTIPLE DEVICES 


WHEN RUNNING MULTIPLE DEVICES AN ACTIVE BIT IS SET 
FOR EACH DEVICE RUNNING UNDER TEST JE. BIT O FOR 
DEVICE O .BIT 15 FOR DEVICE 15 

TO DISQUAL Ir Y DEVICES: 


IF DEVICE O IS TO BE DISQUALIFIED . SIMPLY RESTART 
PROGRAM WITH SWOO =1 AND OMIT THE FIRST DEVICE. 


IF HOWEVER, DEVICES 1 THRU 15 OR ANY COMBINATION THEREOF 
ARE TO BE DISQUAL'FIED.... LOAD THE LOCATION OF ACTREG: 
OBSERVE THE ACTIVE BITS (ACTIVE =1, NONACTIVE = 0) 

AND DEPOSIT O WHERE THOSE DEVICES ARE TO BE DISQUALIFIED 


7.2.2.1 TO RESTART... TYPE 200G.. 
THE PROGRAM WILL CONTINUE WITH THE DEVICE IT WAS IN BEFORE HALTING. 


aS | Severe were SET SWOO=1 IN SWITCH REG (LOC. 176) AND TYPE 200G .. 
ANSWER THE QUESTION : 1ST DEVICE : ETC........... 
THE PROGRAM WILL CONTINUE WITH DEVICE 0 


7.2.2.3 IF ALL DEVICES ARE DISQUALIFIED BY MISTAKE THE PROGRAM 
WILL TYPEOUT AN ERROR MESSAGE....... TYPE 20GG. 


CABLE DELAYS 
NOTE: EXTERNAL LOOP BACK TESTS ONLY (MODEM CABLE WITH H315 CONNECTOR ON) 


TO PROVIDE SUFFICIENT DELAY FOR CLOCK SIGNAL OVER THE CABLE. 

LOCATION “HOLD: " MUST BE MODIFIED TO ACCOMODATE FOR FASTER MACHINES 
PRESENTLY “HOLD: " =20 1S SUFFICIENT TIME ON AN 11/703 MACHINE 

BASICALLY DON'T TRY TO EXCEED 10K TO 12K RATE USING THE EIA DRIVERS 


TO USE THE “XOR” TESTER . THE BRANCH AROUND THE “XOR™ 


+ ra 


SEQ 0009 
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CODE MUST BE PATCHED TO A “NOP”. (SEE LISTINGS FOR DETAILS) 


DEFAULT PARAMETERS: 
1ST DEVICE: RECEIVER CONTROL REGISTER ADDRESS- RXCSR: 160010 


VECTOR ADDRESS- DURIV: 770 
ARE YOU RUNNING MULTIPLE DEVICES ?- NO MULTD: 0 
LAST DEVICE: RECEIVER CONTROL REGISTER ADDRESS- LASTADD: 0 
# OF SYNC CHARS SELECTED - 2 SYNCNO: 377 

1S SEC XMIT SWITCH E55-2 ON?- YES SEXMIT: 377 

1S SEC REC SWITCH E55-3 ON?- YES SEREC: 377 


1S OPT CLR ENABLE SWITCH E55-1 ON?- YES OPTCLR: 377 


DO YOU HAVE THE EXTERNAL MODEM BYPASS JUMPER 
CONNECTOR ON (H315)- YES JMRBY: 377 


PROGRAM DESCRIPTION 


x 
REM x 
THIS PROGRAM PERFORMS THE OFFLINE LCG'C BIT BANGING 
OF THE DEVICE 
SEE LISTING FOR DETAILS 
REM x 


FLOW CHARTS: RECE'VER FLOW, TRANSMITTER FLOW. TRANSMITTER & RECEIVER FLOW 
LISTINGS 


SEQ@ 0010 
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STN=1 





SEQ 0011 


Mm 1 
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DZGUGB. M11 31-MAY-77 O9- APT CORMUN | CAT 1 ONS ROUTINE SEQ 0012 
558 . ENABLE ABS 
559 
560 *DUV11 DZ20UQ-B TAPE A 
ot +COPYRIGHT 1977, DIGITAL EQUIPMENT CORP.. MAYNARD, MASS. 01754 
563 ; STARTING PROCEDURE 
564 > TYPE 200G 
565 ; PROGRAM WILL TYPE “DUV11 DZ0UQ-B TAPE A ™ 
566 ;PROGRAM WILL TYPE “R" TO INDICATE THAT TESTING HAS STARTED 
567 ;AT THE END OF A PASS, PROGRAM WILL TYPE “ENO OF PASS TAPE 9” 
oe AND THEN RESUME TESTING 
thy .SBTTL BASIC DEFINITIONS 
572 s¥*INIT!AL ADDRESS OF THE STACK POINTER 4k 1100 44% 
573 001100 STACK: 1100 | 
574 . EQUIV EMT, ERROR ;;BASIC DEFINITION OF ERROR CALL 
oh -EQUIV 10T, SCOPE +:BASIC DEFINITION OF SCOPE CALL 
b 
577 »KMISCELLANEOUS DEFINITIONS 
578 000011 HT= 11 +;CODE FOR HORIZONTAL TAB 
579 000012 LF= 12 +;CODE FOR LINE FEED 
580 000015 CR= i5 +,CODE FOR CARRIAGE RETURN 
581 009200 CRLF=- 208 +,CODE FOR CARRIAGE RETURN-LINE FEED 
582 177776 PS= 177776 +;PROCESSOR STATUS WORD 
583 - EQUIV PS, PSH 
584 177774 STKLMT= 177774 + STACK LIMIT REGISTER 
585 177772 PIRQ= 177772 ;;PROGRAM INTERRUPT REQUEST REGISTER 
586 177570 DSWR= 177570 +; HARDWARE SWITCH REGISTER 
i 177570 3 DOISP= 177570 >; HARDWARE DISPLAY REGISTER 
588 
589 / XGENERAL PURPOSE REGISTER DEFINITIONS 
590 000000 RO= 70 +;GENERAL REGISTER 
591 000061 Ri= “1 ++GENERAL REGISTER 
592 000002 R2= %2 ,> GENERAL REGISTER 
593 000003 R3= %3 >;GENERAL REGISTER 
594 oo0004 R4= %M +; GENERAL REGISTER 
595 000005 R5= % ;;GENERAL REGISTER 
596 000006 R6= %6 ++GENERAL REGISTER 
597 000007 R7= %7 +;GENERAL REGISTER 
598 600006 SP= %6 >+STACK POINTER 
599 000007 PC= %7 :;PROGRAM COUNTER 
600 
601 ; PRIORITY LEVEL DEFINITIONS 
602 000000 PRO= 0 *>-PRIORITY LEVEL 0 
603 000040 PRi= 40 ;; PRIORITY LEVEL 1 
604 000100 PR2= 100 ++PRIORITY LEVEL 2 
605 000140 PR3= 140 PRIORITY LEVEL 3 
606 000200 PR4= 200 +; PRIORITY LEVEL 4 
607 000240 PRS= 240 +-PRIORITY LEVEL 5 
608 000300 PRO= 300 +; PRIORITY LEVEL 6 
609 000340 PR7= 340 7-PRIORITY LEVEL 7 
610 
611 7 A"SWITCH REGISTER” SWITCH DEFINITIONS 
612 100000 SWiS= 100000 
613 040050 SWi4= 40000 
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020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
00C040 
090020 
000010 
000004 
o00c002 
900001 


100000 
040000 
020009 
019000 
004600 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
O00G004 
000002 
N0000! 


cO0004 
000010 
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15 
BASIC DEFINITIONS 


SW1i3= 
SW12= 
SW1ii= 
SW10= 
SWO9= 
SWO8= 
SWO07= 
SWO06= 
SWOS= 
SWO4= 
SwWO3= 
SWO2= 
SWO1i= 
SwOoO= 
. EQUIV 
. EQUIV 
. EQUIV 
. EQUIV 
. EQUIV 
. EQuiv 
. EQuiv 
. EQUIV 
EQUIV 
. EQUIV 


; XDATA 


Anan aH Aa ss 


‘ ODOMwWwWWOWOWOOWoOOw 
ooo00o0oo0o0o--— 


EQuiv 
. EQUIV 


> XBASIC 
ERRVEC= 
RESVEC= 


SWO9. SWS 
SWO8, SWS 
SW97, SW7 
SWO6, SW6 
SWO5, SWS 
SWO4, SW4 
SWO3, SW3 
SWO2, SW2 
SKO1, SW1 
SWOO, SWO 


BIT oe (BITOG TO BITiS) 
0 


1T09. BITS 
1T08, BITS 
1T07, BIT? 
1706. BIT6 
1T05, B1T5 
1TO4, BITY 
1TO03. BITS 
'T02,B1T2 
BITO1,BIT1 
BI TOO, BITO 


"CPU" TRAP wectee ADDRESSES 


BDoawwowaww-n s+ 


4 TIME OUT AND OTHER ERRORS 
10 7; RESERVED AND ILLEGAL INSTRUCTIONS 


SEQ 0013 


f 


8 2 
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000014 TBITVEC=14 se"T" BIT 
TRIVEC= 14 ++ TRACE TRAP 
BPTVEC= 14 ++BREAKPOINT TRAP (BPT 
1OTVEC= 20 ++ INPUT/OUTPUT TRAP (OT) K¥SCOPE XX 
PWRVEC= 24 ++POWER FAIL 


EMTVEC= 30 ++EMULATOR TRAP (EMT) *XERPORKX 
TRAPVEC=34 +7 "TRAP" TRAP 
TKVEC= 60 ++ TTY KEYBOARD VECTOR 
TPVEC> 64 ++ TTY PRINTER VECTOR 

060240 PIRQVEC=240 ++PROGRAM INTERRUPT REGUEST VECTOR 
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DZDUGB. M11 31-MAY-77 O09: 47 BASIC DEFINITIONS SEQ 0015 
ost +STANDARD INTERRUPT VECTORS 
682 
683 000174 2174 
684 000174 000000 DISPREG: 0 
685 000176 000000 SWREG: 0 
686 000200 . =200 
rf 000200 000167 001746 JMP . START +GO TO START OF PROGRAM 
689 
690 
691 001100 . =1100 
692 001100 90cd00 . WORD O 
693 001102 177570 LIGHTS: 177570 
694 
695 
696 
a PROGRAM CONTROL PARAMETERS 
699 001104 900000 RETURN: 0 
700 001106 cod000 NEXT: 0 ;ADDRESS OF NEXT TEST TO BE EXECUTED 
701 001110 900000 LOCK: 0 ADDRESS FOR LOCK ON CURRENT DATA 
762 001112 000000 PASCNT: 0 ADDRESS CONTAINING PASS COUNT 
703 001114 000000 ERRCNT: O + ERROR COUNT 
a4 001116 000000 SAVSP: 0 + STACK POINTER STORAGE 
a ; PROGRAM VARIABLES 
70 
708 001120 000020 HOLD: 20 ; TEMPORARY STORAGE=DELAY TIME FOR CABLES 
709 001122 9000000 SHIFT: 0 > TEMPORARY STORAGE= # OF SHIFTS PER CHAR 
710 001124 000000 COUNT: 0 ; TEMPORARY STORAGE= # OF TIMES A CHAR WILL BE SENT 
711 001126 000000 SAVPC: 0 PROGRAM COUNTER STORAGE 
712 001130 000000 HL OO: 0 
713 001132 900000 HLD1: 0 
714 001134 000000 HL D2: 0 
715 001136 000000 HLO3: 0 
716 001140 000000 HLD4: 0 
717 001142 000000 HLDS5: 0 
718 001144 900000 HL D6: 0 
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001146 
001147 
001150 
001151 
001152 
001153 


001154 
001156 
001160 
001162 
001164 
001166 


001170 


001172 


001173 
001174 
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000000 
000000 
o0c000 
000000 
000000 
000000 


600000 


000 
000 
000 
001176 
001400 


21-SEP-77 09:04 PAGE 1 


8 
BASIC DEFINITIONS 


ACTREG: 


ROTADD: 


INIFLG: . BYTE 
STFLG: .BYTE 
LOKFLG: . BYTE 
. EVEN 
. =1400 


;PROGRAM CONVERSATIONAL PARAMETERS 
.BYTE 377 +# OF SY 


0 
377 


. + PROGRAM Te es ae PARAMETERS 


ooo000o0 


0 
+70 DEVICE PRESENTLY UNDER TEST WHEN RUNNING MULTIPLE DEVICES 
PROGRAM CONTROL FLAGS 


0 
0 
0 


SEQ 0016 


NC CHARS oe D FOR SYNC'ZATION 
SEC XMIT JUMPER “IN" 
+SEC REC JUMPER “IN! 
OPTIONAL JUMPER CLR "IN" 
*+NO MULTIPLE DEVICE FLAG 
*EXTERNAL MODEM BYPASS JUMPER “IN 


G CONTROLLED 1ST DEVICE ADOR 
SAVED 1ST DEVICE ADDR 
+LAST DEVICE RXCSR ADOR 
+PROG CONTROLLED IV 
SAVED INTR VECTOR 
;ACTIVE REGISTER ..-MODIFY THIS 
;LOCATION TO DISQUALIFY OR QUALIFY 
;DEVICES (1= RUN..,O= DON'T RUN) 
ROTATING POINTER FOR ACTREG. . POINTS 


PROGRAM INITIALIZATION FLAG 
> TEST START FLAG 
+LOCK ON CURRENT TEST FLAG 
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750 

751 

752 

753 

754 

755 005746 
756 005726 
757 010046 
758 012600 
759 O24646 
760 022626 
761 

762 

763 100000 
764 049000 
765 020000 
766 010000 
767 004000 
768 002000 
769 001000 
770 c00400 
771 000200 
772 000100 
773 0000490 
774 000620 
775 000010 
776 000004 
777 000002 
778 000001 
779 

780 100000 
781 040000 
782 020000 
783 010000 
784 

785 001600 
786 000400 
787 

788 030000 
789 020000 
790 000000 
791 000000 
792 002090 
793 004000 
794 006000 
795 000000 
796 001000 
797 001400 
798 

799 100000 
800 040000 
801 020000 
802 002000 
803 000400 
804 000200 


805 000100 


31-MAY-77 09: 47 
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BASIC DEFINITIONS 


+ INSTRUCTION DEF INIT 


PUSH1SP=5746 
POP 1SP=5726 
PUSHRO= 10046 
POPRO=12600 7RES 
PUSH2SP=24646 
POP 2SP=22626 


1ONS 


;DECREMENT PROCESSOR STACK 1 WORD =TST -(SP) 
; INCREMENT PROCESSOR STACK 1 WORD =TST (SP)+ 
+SAVE RO ON STACK =MOV RO. -(SP) 


TORE RO FROM STACK =MOV (SP>}+,R0 


+DECREMENT STACK TWICE =CMP -(SP),-(SP) 
+ INCREMENT STACK TWICE =CMP (SP)+, (SP)+ 


REGISTER DEFINITIONS 


+RXCSR BIT O 
DSC=B1T15 
RING=81T14 
CTS=BIT13 
CARDET=B1T12 
RECACT=BIT11 
SRO=B1T1C 
DSR=BIT9 
STPSYN=B1IT8 
RXDONE=B1T?7 
RINTEN=B1T6 
DSINTE=B1TS 
SYNSCH=B 1 T4 
STO=BIT3 
RTS=BIT2 
DTR=BIT1 
vo1D=81TO 

+ RXDBUF BIT 
RXERR=B1T15 
OVRRUN=B1T14 
FRMERR=BIT13 
PARER=B1T12 

;PARCSR BIT 
PAREN=B1T9 
EVPAR=B1T8 

+PARCSR WRD 
SYNINT=30000 
SYNEXT=20000 
1SYMOD=0 
FIVE=0 
$1X=2000 
SEVEN=4000 
E 1GHT=6000 
NOPAR=0 
ODDPAR= 1000 
EVEPAR=1400 


EF INITIONS 
DATA SET CHANGE 


> RING 

;CLR TO SEND 
;CARRIER DETECT 
;REC ACTIVE 

;SEC REC DATA 
;DATA SET RDY 

; STRIP SYNC 

+REC DONE 

>;REC INTR ENABLE 
;D0SC INTR ENABLE 
;SYNC SEARCH 
;SEC XMIT DATA 
;REQ TO SEND 
;DATA TERM RDY 


DEFINITIONS 
*REC ERROR 
+ OVERRUN 
FRAME ERROR 
PARITY ERROR 
DEFINITIONS 
PARITY ENABLE 
>EVEN PARITY SENSE 
DEFINITIONS 
SYNC EXTERNAL MODE 
> SYNC INTERNAL MODE 
> 1SOC MODE 
;WORD LENGTH 5 BITS 
;WORD LENGTH 6 BITS 
;WORD LENGTH 7 BITS 
;WORD LENGTH 8 BITS 
+NO PARITY 
000 PARITY 
+EVEN PARITY 


;TXCSR BIT DEFINITIONS 


DNA=B1T15 
MTDATA=B1T14 
CLK=BIT13 
BITW=BIT10 
MRESET=B1T8 
TXDONE =B 1 T7 
TXINTE=B1T6 


;DATA NOT AVAILABLE 
; MAINT DATA 
/ CLK 


*CL 

>BIT WINDOW 
:MASTER RESET 
;>XMIT DONE 

;¥MIT INTR ENABLE 


SEQ 0017 


2] 
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806 000040 DNAINTE=B1TS 
807 000020 SEND=B1T4 
808 000010 HOXEN=B1T3 
809 000001 BREAK=B1T0 BREA 
810 +TXCSR WRO DEF IN 
811 000000 USER=0 E 
B12 004000 MINT=4000 
813 010000 MEXT=10000 


814 014000 


SYSTST=14000 


DONA INTR ENAB 
; SEND 


MAINT INT MODE 
; MAINT EXT MODE 
; SYSTEM TEST MODE 


SEQ 0018 
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001400 
001400 
001402 
001403 
001404 
001406 
001410 
001412 
001414 
001415 
001416 
001420 
001422 
001424 
001426 
001430 
001432 
001434 
001435 
001436 
001440 
001442 
001444 
001446 
001450 
001452 
001454 
001455 
001456 
001457 
001460 


001462 
001464 
001466 
001470 
001472 
001474 
001476 
001500 
001502 
001504 
001506 
001510 
001512 
001514 
001516 
001522 
001523 
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001400 
000000 


000 
000000 


000000 
000000 
000000 
000090 
000000 
000000 


000377 


COMMON TAGS 
.SBTTL COMMON TAGS 


+s MEXKAAAAAAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AEA EY 
*XTHIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 


;*USED IN THE PROGRAM. 


SCMTAG: 
. WORD 
STSTNM: . BYTE 
SERFLG: . BYTE 
SICNT: . WORD 
SLPADR: . WORD 
SLPERR: . WORD 
SERTTL: . WORD 
SITEMB: . BYTE 
SERMAX: . BYTE 
SERRPC: . WORD 
SGDADR: . WORD 
SBDADR: . WORD 
SGDDAT: . WORD 
SBDDAT: . WORD 
WORD 
WORD 
SAUTOB: . BYTE 
SINTAG: . BYTE 
. WORD 
SHR: . WORD 
DISPLAY: . WORD 
STKS: 177560 
STKB: 177562 
STPS: 177564 
STPB: 177566 
SNULL: . BYTE 
SFILLS: . BYTE 
SFILLC: . BYTE 
STPFLG: . BYTE 
SREGAD: . WORD 
SREGO: . WORD 
SREG1: . WORD 
SREG2: . WORD 
SREG3: . WORD 
SREGY: . WORD 
SREGS: . WORD 
STMPO: . WORD 
STMP1: . WORD 
STMP2: . WORD 
STMP3: . WORD 
STMP4: . WORD 
STMPS: . WORD 
STIMES: 0 
SESCAPE: 0 
S$BELL- .ASCIZ 
SQUES: ASCII 
SCRLF: .ASCII 


QODODVOOCOVCVOOKO0000000 


oo 
tr on 
—- = 
eae) 
wo 


CO0000000000 20NO 


thematic 
7? 
18) 


SEQ 0019 


+; START OF COMMON TAGS 


+;CONTAINS THE TEST NUMBER 
+; CONTAINS ERROR FLAG 

+; CONTAINS SUBTEST ITERATION COUNT 

+; CONTAINS SCOPE LOOP ADDRESS 
+;+CONTAINS SCOPE RETURN FOR ERRORS 
++CONTAINS TOTAL ERRORS DETECTED 
+;CONTAINS ITEM CONTROL BYTE 

++ CONTAINS MAX. ERRORS PER TEST 

+; CONTAINS PC OF LAST ERROR INSTRUCTION 
++ CONTAINS ADDRESS OF ‘GOOD' DATA 

+; CONTAINS ADDRESS OF ‘BAD’ DATA 
;CONTAINS ‘GOOD’ DATA 

++CONTAINS ‘BAD’ DATA 

;;RESERVED--NOT TO BE USED 


>; AUTOMATIC MODE INDICATOR 
>, INTERRUPT MODE INDICATOR 


;; ADDRESS OF SWITCH REGISTER 
;,ADORESS OF DISPLAY REGISTER 
SSTTY KBD STATUS 
>; TTY KBD BUFFER 
;; TTY PRINTER STATUS REG. ADDRESS 
;; TTY PRINTER BUFFER REG. ADDRESS 
>; CONTAINS NULL CHARACTER FOR FILLS 
3; CONTAINS # OF FILLER CHARACTERS REQUIRED 
>; INSERT FILL CHARS. AFTER A “LINE FEED” 
3; "TERMINAL AVAILABLE” FLAG (B1T<07>=0=YES) 
;; CONTAINS THE ADDRESS FROM 
;;WHICH (S$REGO) WAS OBTAINED 
>; CONTAINS ((SREGAD)+0) 
;; CONTAINS ((SREGAD) +2) 
>; CONTAINS ((SREGAD) +4) 
;; CONTAINS ((SREGAD) +6) 
+; CONTAINS ((SREGAD) +10) 
>; CONTAINS ((S$REGAD) +12) 
;;USER DEFINED 
>;USER DEFINED 
+; USER DEFINED 
>; USER DEFINED 
;>USER DEFINED 
>; USER DEFINED 
;;MAX. NUMBER OF ITERATIONS 
+; ESCAPE ON ERROR ADDRESS 
:: CODE FOR BELL 
>; QUESTION MARK 
>; CARRIAGE RETURN 
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DZDUGB. M11 31-MAY-77 09:4 COMMON TAGS SEQ 0020 
871 001524 000012 SLF: ASCIZ <12> *+LINE FEED 
872 SE TTTTTTTITITTTITITITTTTE TET 
oh .SBTTL APT MAILBOX-ETABLE 
she 4° “Wags Remain” “Sapdenbaacacabagt men A ie aula seinen « 
877 001526 SMAIL: +;APT MAILBOX 
878 001526 000000 SMSGTY: .WORD AMSGTY ;; MESSAGE TYPE CODE 
879 001530 000000 SFATAL: .WORD FATAL ;; FATAL ERROR NUMBER 
880 001532 000000 STESTN: .WORD ATESTN ;; TEST NUMBER 
881 001534 600000 SPASS: .WORD APASS ;;PASS COUNT 
882 001536 000000 SDEVCT: .WORD ADEVCT ;; DEVICE COUNT 
883 001540 o0C000 SUNIT: .WORD UNIT ;; 170 UNIT NUMBER 
884 001542 000000 SMSGAD: .WORD AMSGAD ;; MESSAGE ADDRESS 
885 001544 000000 SMSGLG: .WORD AMSGLG ;; MESSAGE LENGTH 
886 001546 SE TABLE: +;APT ENVIRONMENT TABLE 
887 001546 000 SENV: .BYTE AENV ++ ENVIRONMENT BYTE 
888 001547 000 SENVM: .BYTE AENVM ;; ENVIRONMENT MODE BITS 
889 001550 000006 SSWREG: .WORD ASWREG ;;APT SWITCH REGISTER 
890 001552 000000 SUSWR: .WORD AUSWR ;; USER SWITCHES 
891 001554 co00000 SCPUOP: .WORD ACPUOP ;;CPU TYPE,OPTIONS 
892 x BITS 15-11=CPU TYPE 
893 im 11704=01, 11705=02, 11/20=03, 11740=04, 11745=05 
894 ; 11/70=06, PDQ=07, Q=10 
895 1 BIT 10=REAL TIME CLOCK 
896 k BIT 9=FLOATING POINT PROCESSOR 
897 x BIT 8=MEMORY MANAGEMENT 
898 001556 000 SMANS1. .BYTE AMANS1 ;:HIGH ADDRESS.M.S. BYTE 
899 001557 000 SMTYP1: .BYTE AMTYP1 ;; MEM. TYPE. BLK#1 
900 x MEM. TYPE BYTE -- (HIGH BYTE) 
901 mS 900 NSEC CORE=001 
902 : 300 NSEC BIPOLAR=002 
903 500 NSEC MOS=003 
904 001560 000000 SrADR .WORD Q@MADR1 ;;HIGH ADDRESS. BLK#1 
905 MEM. LAST ADDR. =3 BYTES. THIS WORD AND LOW OF “TYPE” ABOVE 
906 001562 000 SMANSZ. .BYTE AMAMSZ2 ;; HIGH ADDRESS.M.S. BYTE 
907 001563 000 SMTYP2: .BYTE AMTYP2 ;; MEM. TYPE. BLK&2 
908 001564 000000 SMADR2: .WORD AMADRZ ;; MEM. LAST ADDRESS. BLK#2 
909 001566 000 SMAMS3: .BYTE AMAMS3 ;;HIGH ADDRESS.M. S. BYTE 
910 00:567 oco SMTYP3: .BYTE AMTYP3 ;; MEM. TYPE, BLK&3 
911 001570 000000 SMADR3: .WORD AMADR3 ;; MEM. LAST ADDRESS, BLK&3 
912 001572 ooc SMAMSY: .BYTE AMANSY ;;HIGH ADDRESS.M. S. BYTE 
913 001573 090 SMTYP4: .BYTE AMNTYPY ;; MEM. TYPE, BLK&4 
914 001574 900000 SMADRY: .WORD AMADRY ;; MEM. LAST ADDRESS, BLK&4 
915 001576 000000 SVECT1: .WORD AVECT1 ;; INTERRUPT VECTOR#1,BUS PRIORITY&1 
916 001600 000000 SVECT2: .WORD AVECT2 ;; INTERRUPT VECTOR#2BUS PRIORITY#2 
917 001602 000000 SBASE: .WORD ABASE ;;BASE ADDRESS OF EQUIPMENT UNDER TEST 
918 001604 000000 SDEVM: .WORD ADEVM ;; DEVICE MAP 
919 001606 9000000 SCOW1: . WORD ACOW1 ;; CONTROLLER DESCRIPTION WORD#1 
920 001610 000000 S$COW2: .WORD ACDW2 ;; CONTROLLER DESCRIPTION WORD#2 
921 001612 000000 SO0DWO: . WORD ADDWO ;; DEVICE DESCRIPTOR WORD&#O 
922 001614 000000 SODW1: . WORD ADDW1 ;; DEVICE DESCRIPTOR WORD#1 
923 001616 000000 S$O0W2: .WORD ADDW2 ;; DEVICE DESCRIPTOR WORD#2 
924 061620 000000 SODW3: . WORD ADDW3 ;; DEVICE DESCRIPTOR WORD#3 
925 001622 000000 SODWH: .WORD ADOWY ;; DEVICE DESCRIPTOR WORD&#4 


926 001624 000000 SO0W5: . WORD ADOWS ;; DEVICE DESCRIPTOR WORD&#S 





Se A TD 
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927 001626 000000 $00W6: . WORD ADDWE «+; DEVICE DESCRIPTOR WORD#6 
928 001630 000000 S$DDW7: .WORD ADOW7? ;; DEVICE DESCRIPTOR WORD#7 
929 001632 000000 SODW8: .WORD ADDWS ;; DEVICE DESCRIPTOR WORD#8 
930 001634 000000 SDDW9: .WORD ADDWS ;; DEVICE DESCRIPTOR WORD&9 
931 001636 9000000 SODW10: .WORD ADOWIO ;; DEVICE DESCRIPTOR WORD#10 
932 001640 000000 SODW11: .WORD ADOW11 +; DEVICE DESCRIPTOR WORD#1! 
933 001642 000000 $D0W12: .WORD ADDW12 ;; DEVICE DESCRIPTOR WORD#12 
934 001644 OC00000 SODW13: .WORD ADOWI3 +; DEVICE DESCRIPTOR WORD#13 
935 001646 000000 S$ODW14: .WORD ADDWI4 ;; DEVICE DESCRIPTOR WORD#14 
ee 001650 000000 SDDW15: .WORD ADDWIS ;; DEVICE DESCRIPTOR WORD#15 


001652 SE TEND: 
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=TST -(SP) 
=TST (SP)+ 


RO 
(SP )+ 


DZDUCB. M11 31-MAY-77 09:4 APT MAILBOX-ETABLE 
943 
944 
945 
ag + INSTRUCTION DEFINITIONS 
948 005746 PUSH1SP=5746 +DECREMENT PROCESSOR STACK 1 WORD 
949 005726 POP 1SP=5726 + INCREMENT PROCESSOR STACK 1 WORD 
950 010046 PUSHRO= 10046 + SAVE RO ON STACK =MOV RO. -(SP) 
951 012600 POPRO=12600 +RESTORE RO FROM STACK =MOV (SP)+, 
952 O24646 PUSH2SP=24646 ;DECREMENT STACK TWICE =CMP -(SP),-(SP) 
953 022626 POP 2SP=22626 + INCREMENT STACK TWICE =CMP (SP)+, 
954 REGISTER DEFINITIONS 
955 +RXCSR BIT DEFINITIONS 
956 100000 DSC=B1T15 DATA SET CHANGE 
957 040000 RING=B1T14 +RING 
958 020000 CTS=BIT13 CLR TO SEND 
959 010000 CARDET=B1T12 CARRIER DETECT 
960 004000 RECACT=BIT11 REC ACTIVE 
961 002000 SRO=B1TIC SEC REC DATA 
962 001000 DSR=BIT9 DATA SET RDY 
963 C00400 STPSYN=B1T8 STRIP SYNC 
964 000200 RXDONE=BIT? +REC DONE 
965 000100 RINTEN=BIT6 REC INTR ENABLE 
966 000040 DSINTE=BITS *DSC INTR ENABLE 
967 000020 SYNSCH=B1T4 SYNC SEARCH 
968 000010 STD=BIT3 +SEC XMIT DATA 
969 000004 RTS=BIT2 REQ TO SEND 
970 000002 DTR=BIT1 >DATA TERM RDY 
971 000001 VO+0=B ITO 
972 +RXDBUF BIT DEFINITIONS 
973 100000 RXERR=B1T15 *REC ERROR 
974 040000 OVRRUN=B1T14 ; OVERRUN 
975 020000 FRMERR=BIT13 FRAME ERROR 
976 010000 PARER=B1T12 ;PARITY ERROR 
977 ;PARCSR BIT DEFINITIONS 
978 001000 PAREN=BIT9 ;PARITY ENABLE 
979 000400 EVPAR=B1T8 > EVEN PARITY SENSE 
980 ;PARCSR WROD DEFINITIONS 
981 030000 SYNINT=30000 + SYNC EXTERNAL MODE 
982 020000 SYNE XT=20000 SYNC INTERNAL MODE 
983 000000 ISYMOD=0 > ISOC MODE 
984 000000 FIVE=0 +WORD LENGTH 5 BITS 
985 002090 $1X=2000 +WORD LENGTH 6 BITS 
986 004000 SE VEN=4000 +WORD LENGTH 7 BITS 
987 006000 E |GHT=6000 +WORD LENGTH 8 BITS 
988 000000 NOPAR=0 +NO PARITY 
989 001000 ODDPAR=1000 ;0DD PARITY 
990 001400 EVEPAR=1400 ;EVEN PARITY 
991 + TXCSR BIT DEFINITIONS 
992 100000 DNA=B1T15 +DATA NOT AVAILAGLE 
993 040000 MTDATA=B1T14 MAINT DATA 
994 020000 CLK=BIT13 7 CLK 
995 002000 BITW=BIT10 SBIT WINDOW 
996 000400 MRESET=B1T8 * MASTER RESET 
997 000200 TXDONE =B1T7 +XMIT DONE 
998 000100 TXINTE=B1T6 +XMIT INTR ENABLE 


SEQ 0022 
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999 000040 
1000 000020 
1001 000010 
1002 000001 
1003 
1004 000000 
1005 004000 
1006 010000 


1007 014000 
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DNAINTE=B1TS 
SEND=B1T4 
HDXEN=B1T3 
BREAK=B1TO 


USER=0 
MINT=4000 
MEXT=1C000 
SYSTST=14000 


+TXCSR WROD DEF IN 


APT MAILBOX-E TABLE 


+DNA_ INTR ENAB 
; SEND 


+ SEN 

+ HOX/F DX 
+ BREAK 

I TIONS 

USER MODE 

+ MAINT INT MODE 
;MAINT EXT MODE 

+ SYSTEM TEST MODE 


SEQ 0023 
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1008 _SBTTL ERROR POINTER TABLE 
1010 ;KTHIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
1011 ;XTHE INFORMATION 1S OBTAINED BY USING THE INDEX NUMBER FOUND IN 
1012 ;*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
1013 ; KNOTE1: IF SITEMB 1S O THE ONLY PERTINENT DATA IS (SERRPC). 
ree! ; KNOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
1016 8 EM ;;POINTS TO THE ERROR MESSAGE 
1017 ;x DH ;;POINTS TO THE DATA HEADER 
1018 _ ik DT ;;POINTS TO THE DATA 
1019 a. OF ;,POINTS TO THE DATA FORMAT | 
1020 
1021 | 
1022 001652 SERRTB: 
1023 ;ERROR TABLE 
1024 001652 001762 EMi 7ERROR 1 REGISTER ERROR 
1025 001654 002067 DH1 
1026 001656 002116 OT1 
1027 001660 002132 OF 1 
1028 001662 602022 FM2 ZERROR 2 RECEIVER FRROR 
1029 001664 002067 DH1 
1030 001666 002116 DT1 
1031 001670 002132 OF 1 
1032 001672 002043 EN3 ;ERROR 3 TRANSMITTER ERROR 
1033 001674 002067 DH1 
1034 001676 002116 DT! 
1035 001700 002132 DF 1 
1036 001702 001746 EM4 7ERROR 4 BIT ERROR (GENERAL ) 
1037 001704 oD0000 0 
1038 001706 002126 OT4 
1039 001710 002132 ~ OF 1 
1040 
1041 ;DEFAULT DU ADORESSES 
1042 001712 160010 RXCSR: 160010 
1043 001714 160011 HRXCSR: 160011 
1044 001716 160012 RXDBUF: 160012 
1045 001720 160013 HRXDBUF: 160013 
1046 001722 160012 PARCSR: 160012 
1047 001724 160013 HPARCSR: 160013 
1048 001726 160014 TXCSR: 160014 
1049 001730 160015 HTXCSR: 160015 
1050 001732 160016 TXDBUF: 160016 
1051 001734 160017 HTXDBUF: 160017 
1052 :DEFAULT DU VECTORS 
1053 001736 000770 DURIV: 770 REC INTR VECTOR 
1054 001740 000772 DURIS: 772 ;REC INTR STATUS 
1055 001742 000774 DUTIV: 774 ;XMIT INTR VECTOR 
105@ 001744 000776 DUTIS: 776 ;XMIT INTR STATUS 
1057 ;ERROR MESSAGES 
001746 O20040 051105 047522 EMH: -ASCIZ 7 ERROR PC / 
020122 041520 000040 
020040 047503 050115 EN1: -ASCIZ Z COMPARISON ERROR ON REGISTERS/ 
051101 051511 047117 
O4244C 051122 051117 
047440 020116 042522 ; 
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1064 002012 044507 052123 051105 

1065 002020 000123 

1066 002022 O20040 042522 042503 ENZ2: .ASCIZ 7 RECEIVER ERROR/ 
1067? 002030 053111 051105 042440 

1068 002036 051122 051117 000 

1069 002043 O40 052040 040522 ENS: .ASCIZ 7 TRANSMITTER ERROR/ 
1070 602650 051516 044515 052124 

1071 002056 051105 O42440 051122 

1072 002064 051117 000 


sleliiia macitass ailiatitadiiaaamaeaal 


1073 DATA HEADERS FOR ERROR MESSAGES 

1074 002067 105 051122 041520 ODHi: .ASCIZ ZERRPC WANTED ACTUAL/ 

10756 002074 O20040 040527 052116 

1076 002102 G42105 020040 041501 

1077 002110 052524 046101 000 

1078 002116 _ EVEN 

1079 DATA TABLES FOR ERROR MESSAGES 

1680 002116 001416 001130 001132 OT1: WORD SERRPC.HLOO, HLD1.0 

1081 002124 900000 

1082 

oe 002126 001416 900000 DT: .WORD SERRPC.O 

1 

1085 002132 oco 000 000 OF1: .BYTE 0,0,0.0 | 
1086 002135 000 | 
1087 . EVEN 

aos .SBTTL ACTI1 HOOKS 

1090 js MEXKAAAAKAR AAA AAA AAA AAA AAA AAA ATA AAA AAA TAKARA AAAS 

1091 *HOOKS REQUIRED BY ACTI1 

1092 002: 36 SSVPC=. + SAVE PC 

1093 000046 . =46 

1094 OC0046 012644 SENDAD ++1)SET LOC. 46 TO ADDRESS OF SENDAD IN . SEOP 
1095 000052 . =52 

1096 000052 900000 .WORD OQ +;2)SET LOC.52 TO ZERO 

1097 002136 . =SSVPC ++ RESTORE PC 

tee .SBTTL APT PARAMETER BLOCK 

10 

1100 (Oh egerre eye yg gto" eee 

1101 7SET LOCATIONS 24 AND 44 AS REQUIRED FOR A 

1102 Se AERSELES EEREAUSSSLESUNSSSRONSSERARSSSAAASSSAEAESSEENSESEANSS 

1103 002136 . $X=. +; SAVE CURRENT LOCATION 

1104 000024 224 +;SET POWER FAIL TO POINT TO START OF PROGRAM 

1105 000024 000200 200 ;;FOR APT START UP 

1106 000044 . =44 ;;POINT TO APT INDIRECT ADDRESS PNTR 

1107 O0004% 002136 SAP THOR ;;POINT TO APT HEADER BLOCK 

1108 002136 $X ;;RESET LOCATION COUNTER 

1109 jj AA RAAAEAREAAUAAEERYS ESE KERES SES EES EUSA EEE 

1110 ; SETUP APT PARAMETER BLOCK AS DEFINED !N THE APT-PDP11 DIAGNOSTIC 

1111 ; INTERFACE SPEC. 

1112 

1113 002136 SAP THD: 

111% 002136 000000 SHiBTS: .WORD O +; TWO HIGH BITS OF 18 BIT MAIL8OX ADDR. 

11156 002140 001526 SMBADR: .WORD SMAIL ;; ADDRESS OF APT MAILBOX (BITS 0-15) 

1116 002142 000010 STSTM: .WORD 10 +;RUN TIM OF LONGEST TEST 

1117 002144 000010 SPASTM: .WORD 190 ;;RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
1118 002146 000000 SUN!TM: . WORD i; ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
1119 002150 000052 .WORD SETEND-SMAIL/72 >; LENGTH MAILBOX-ETABLE (WORDS) 
























































N 2 cs ait its ie 
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DZDUGB. M11 31-MAY-77 09:4 APT PARAMETER BLOCK SEQ 0026 
: 

1122 +PROGRAM INITIALIZATION 

1123 +LOCK OUT INTERRUPTS 

1124 +SET UP PROCESSOR STACK 

1125 *+SET UP POWER FAIL VECTOR 

13 *CLEAR PROGRAM CONTROL FLAGS AND COUNTS . 


127 + TYPE TITLE MESSAGE 


———— SS 


1175 002432 105067 176535 CLRB STFLG *CLEAP START FLAG 


1128 

1129 002152 _ START: 

1130 .SBTTL INITIALIZE THE COMMON TAGS 

1131 7; CLEAR THE COMMON TAGS (SCNTAG) AREA 

1132 002152 012706 001400 MOV #SCMTAG, RE ;;FIRST LOCATION TO BE CLEARED 

1133 002156 005026 CLR (R6)+ 3; CLEAR MEMORY LOCATION 

1134 002160 022706 o01440 CMP BSWR. RO ;; DONE? 

1135 002164 001374 BNE -% 3; LOOP BACK IF NO 

1136 002166 012706 001100 ##STACK, SP :; SETUP THE STACK POINTER 
1137 1s INITIALIZE A FEW VECTORS 

1138 002172 012737 016270 000020 MOV #SSCOPE, ABIOTVEC =; 10T VECTOR FOR SCOPE ROUTINE 
1139 002200 012737 000340 000022 Mow #340, QRIOTVEC+2 ;; LEVEL 7 

1140 002206 612737 014160 000030 Mov #SERROR, DBEMTVEC =; EMT VECTOR FOR ERROR ROUTINE 
1141 002214 012737 000340 000032 nov #340, QBENTVEC+2 ; LEVEL 7 

1142 002222 012737 016624 000034 Mov #STRAP, AYTRAPVEC ;; TRAP VECTOR FOR TRAP CALLS 

1143 002230 012737 000340 000036 MoV #340, ASTRAPVEC+2; LEVEL 7 

1144 002236 012737 014762 000024 Mov #SPHRON, DRPWRVEC ;; POWER FAILURE VECTOR 

1145 002244 012737 O0C340 400026 Now #340, QSPWRVEC+2 : LEVEL 7 

1146 002252 005067 177234 CLR STIMES :; INITIALIZE NUMBER OF ITERATIONS 
1147 002256 005067 177232 CLR SESCAPE +; CLEAR THE ESCAPE ON ERROR ADDRESS 
1148 002262 112767 000001 177125 MOVB = #1, SERMAX ;;ALLOW ONE ERROR PER TEST 

1149 002270 012767 002270 177110 MOV . , SLPADR +; INITIALIZE THE LOOP ADDRESS FOR SCOPE 
1150 002276 012767 002276 177104 Mov , SLPERR +; SETUP THE ERROR LOOP ADDRESS 

1151 +:S12E FOR A HARDUARE SWITCH REGISTER. IF NOT FOUND OR IT IS 

1152 ;;EQUAL TO A "-1", SETUP FOR A SOFTWARE SWITCH REGISTER. 

1153 002304 013746 000004 Mov DFERRVEC,-(SP) ;;SAVE ERROR VECTOR 

1154 002310 012737 002344 000004 Mov #64S, QEERRVEC  ;;SET UP ERROR VECTOR 

1155 002316 012767 177570 177114 Mov #DSWR, SHR ;;SETUP FOR A HARDWARE SWiCH REGISTER 
1156 002324 012767 177570 177110 Mov #DDISP,DISPLAY ;;AND A HARDWARE DISPLAY REGISTER 
1157 002332 022777 177777 177100 CMP #-1, ASHR :;TRY TO REFERENCE HARDWARE SWR 
1158 002340 001012 BNE 665 ;;BRANCH IF NO TIMEOUT TRAP OCCURRED 
1159 ;;AND THE HAROWARE SWR 1S NOT = -1 
1160 002342 000403 BR 655 ;;BRANCH IF NO TIMEOUT 

1161 002344 012716 002352 64S: MOV #655, (SP) ;;SET UP FOR TRAP RETURN 

1162 002350 000002 RTI 

1163 002352 012767 000176 177060 65%: Mov #SWREG, SHR :;POINT TO SOFTWARE SWR 

1164 002360 012767 000174 177054 nov #D1SPREG, DISPLAY 

1165 002366 012637 000004 66S: MOV (SP)+, @BERRVEC =; RESTORE ERROR VECTOR 

1166 

1167 002372 005067 177136 CLR SPASS 7; CLEAR PASS COUNT 

1168 002376 132767 000200 177143 BITB APTSIZE.SENVN ;; TEST USER SIZE UNDER APT 

1169 002404 001403 BEQ 67% i YES,USE NON-APT SWITCH 

1170 002406 012767 001550 177024 Mov #SSHREG, SHR ;;NO,USE APT SWITCH REGISTER 

1171 002414 67S. 
1172 002414 012706 001100 Mov #STACK, SP ;SET STACK 

1173 002420 106427 000340 MTPS #340 ;LOCK INTERRUPTS 

1174 002424 012737 014762 000024 Mov 8. PFAIL, a824 ;SET UP POWER FAIL VECTOR 
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002436 
002442 
002446 
002452 
002456 
002464 


002472 
002476 
002502 
002510 
002514 
002516 
002524 
002532 
002534 
002540 
002544 
002552 
002554 
002560 
002562 
002566 
002572 
002576 
002600 
002604 
002610 
002614 
002616 
002624 
002626 


002734 
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31-MAY-77 09: 47 


005067 


012767 


013746 
013746 
012737 
005777 
000407 
012767 
012767 


016767 


176450 
176735 
176740 
176740 
000001 
002152 


000006 
000004 
002515 
176724 


000176 
600174 


000004 
000006 
000176 


000042 


000522 
010154 
176374 


01£122 
176362 
176732 


000001 


176321 
000452 
000001 


0004 36 
009300 
000302 
000004 


001000 


014172 
014032 
176216 


176716 
176412 


000004 


176714 


176710 


176666 


176726 


176574 


176226 
176212 


8 3 


INITIALIZE THE COMMON TAGS 


23: 


335: 
35: 


ONCE: 


. BYTE 
. BYTE 


PASCNT CLEAR PASS COUNT 

SERFLG + CLEAR ERROR FLAG 

SERTTL CLEAR ERROR COUNT 

SERRPC + CLEAR LAST Seats POINTER 

#1, $TSTNM +SET UP FOR TEST 

#. START. RETURN +SET UP FOR POWER FAIL BEFORE 
; TESTING STARTS 

d#6, -(SP) 

a4, -(SP) 

#15, d84 

OSHR 

23 

#SWREG, SHR 


#DISPREG, DISPLAY 
(SP)+, (SP)+ 
(SP) +, d#4 
(SP) +, d#6 
#SWREG, SWR 

3$ 


#42 CHECK FOR CHAIN 


INIFLG ;HAS INITIALIZATION BEEN PERFORMED 


/MTITLE TYPE TITLE MESSAGE 
INIFLG ;1F NOT SET FLAG AND DO 
SENV APT CONTROL? 


1 *BR IF NO 
#1, SUSHR ; EXTENAL JUMPER ON? 
NO 


JMRBY : CLEAR FLAG 

. BEGIN +GO DO IT 

+ teeta ie “ RESELECT VECTOR & CONTROL REG? 
1 

. BEGIN 

#300,RO ;RESTORE VECTOR AREA TO TRAPCATCHER 
#302,R1 ;START AT LOCATION 300 


#1000, R1 END AT LOCATION 776 


2$ 

> OUTPUT MESSAGE & GET INPUT STRING 
+ MESSAGE 

+ CONVERT STRING 

+LOW reek 

+HIGH LIMIT 

+ STORE at THIS LOCATION 

; MASK 

;HOW MANY TIMES + 2 

DUBASE.KEEPADD ; SAVE 

PC, DUADOR 

KEEPADD. BASEADD ; RESTORE FOR ROTATION 





-- 
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002742 
002744 
002746 
002750 
002752 
002754 
002756 
002757 
002760 
002766 
002774 
002776 
003000 
003002 
003004 


003010 
003012 
003016 
003022 
003026 
003026 
003030 
003032 
003034 
003036 
003040 
003042 
003043 


003112 


003120 


003166 


31-MAY-7 
104406 


105767 


100406 
005067 
005067 
000167 


104406 


012767 
005067 
056767 
000241 
006167 
103421 
062767 
026767 
101362 
056767 


012767 


000167 
012767 


ai- _ -77 O9: af PAGE 39 
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7 09:4 


176752 
176744 


176142 


176150 
176146 
000140 


000001 
176110 
176106 
176076 


000010 
176052 


176052 
000001 
176024 
176014 


177656 
000340 


176176 
176166 


176116 
176102 


176052 
176044 


176046 
176042 
176020 
176010 


013566 


.BYTE 1 


.BYTE 4 


.BYTE 1 
BYTE 


Cc 


+OUTPUT MESSAGE & GET INPUT STRING 
MESSAGE 


; CONVERT STRING 

*LOW L he 

+ HIGH 

; STORE aT. THIS LOCATION 
MASK 


;HOW MANY TIMES + 2 

DUR IV, KEEP IV + SAVE 

DUR IV. BASE IV + SET UP FOR ROTATION 
OUTPUT MESSAGE & GET INPUT STRING 


; MESSAGE 

: SET FLAG BASED UPON INPUT STRING 

+ THIS FLAG 

MULTD ;ARE THERE MULTIPLE DEVICES 
ON THE SYSTEM ? 

BBB + YES. ASK NEXT QUESTION 

ACTREG 

ROTADD 

OUTMUL ; JUMP AROUND NEXT QUESTION 


OUTPUT MESSAGE & GET INPUT STRING 
; MESSAGE 

> CONVERT STRING 

+ LOW ee 

+HIGH LIMIT 

baer ar THIS LOCATION 


’ 


S 
;HOW MANY TIMES + 2 


1 
; THE — er oat SETS UP ACTREG FOR THE FIRST TIME 


1$: MOV 
28: BIS 


4S: MOV 


35: MOV 


.BYTE 1 

Ove. 7 
JMP 

OUTMUL: MOV 


OTADD +SET UP POINTER 
ACTREG ;CLR ACTIVE REGISTER 
ROTADD.ACTREG ;MAKE THIS DEVICE ACTIVE 


ROTADD ;SET UP POINTER 
3$ ;ARE YOU OUT OF RANGE ? 
#10, BASEADD +SET UP BASE ADDRESS 
LASTADD, BASEADD ; 1S THIS THE LAST DEVICE ? 
28 +NO DO IT AGAIN 
RCTADD.ACTREG ; THIS ASSUMES THAT THERE ARE AT 
*+LEAST THO DEVICES WHEN YOU ANSWER YES TO 
;MULTIPLE DEVICE QUESTION 
#1, ROTADD ;SET UP FOR LATER USE !N END OF PASS ROUTINE 
KEEPADD. BASEADD ; DITTO 
OUTMUL ;CONTINUE QUESTIONS 
KEEPADD. BASEADD ; RESTORE 
;QUTPUT MESSAGE & GET INPUT STRING 
+ MESSAGE 
CONVERT STRING 
LOW LIMIT 
+HIGH LIMIT 
+ STORE AT THIS LOCATION 
; MASK 
;HOW MANY TIMES + 2 
1$ +00 IT AGAIN 
$340, DUPRT 


SEQ 0028 


D 3 
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DZ2DUGB. M11 31-MAY-77 O09: 47 INITIALIZE THE COMMON TAGS SEQ 0029 
1288 003174 004767 013512 JSR PC, DULEV 
1289 +COMPARE THE FIRST CHARACTER " THE TELETYPE INPUT 
1290 +BUFFER TO THE CHARACTERS "1" AND "2". 
1291 ;1F THE CHARACTER IS "1" CLEAR THE FLAG 
1292 + IF THE CHARACTER IS "2" SET THE FLAG 
1293 003200 ARR: 
1294 003200 104406 INSTR ;OUTPUT MESSAGE & GET INPUT STRING 
1295 003202 015561 MSYNC ; MESSAGE 
1296 003204 122767 000061 012710 3%: CMPB #'1, INBUF ce 07 "Fy" 7 
1297 003212 001003 BNE 1$ 
1298 003214 105067 175726 CLRB SYNCNO ;000 
1299 003220 000412 BR 4§ 
1300 003222 122767 000062 012672 1%: CMPB #'2, |NBUF 308 17 “2 YT 
1301 003230 001004 ' BNE 23 
1302 003232 112767 177777 175706 MOVB #-1, SYNCNO +377 
1303 003240 000402 BR 4$ 
1304 003242 104407 2S: INSTER ; RETRY 
1305 003244 000757 BR 3$ 
1306 003246 000240 4$: NOP 
1307 003250 104406 INSTR ;OUTPUT MESSAGE & GET INPUT STRING 
1308 003252 015627 MWIRE6 + MESSAGE 
1309 003254 104414 SETFLG ;SET FLAG BASED UPON INPUT STRING 
1310 003256 001147 SEXMIT ;THIS FLAG 
1311 003260 104406 INSTR ;OUTPUT MESSAGE & GET INPUT STRING 
1312 003262 015700 MWIRES ; MESSAGE 
1313 003264 104414 SETFLG ;SET FLAG BASED UPON INPUT STRING 
1314 003266 001150 SEREC ; THIS FLAG 
1315 003270 104406 INSTR ;OUTPUT MESSAGE & GET INPUT STRING 
1316 003272 015750 MWIREY ; MESSAGE 
1317 003274 104414 SETFLG ;SET FLAG BASED UPON INPUT STRING 
1318 003276 001151 OPTCLR ;THIS FLAG 
1319 003300 104406 INSTR ;OUTPUT MESSAGE & GET INPUT STRING 
1320 003302 016027 MEXTJ ; MESSAGE 
1321 OO3304 104414 SETFLG ;SET FLAG BASED UPON INPUT STRING 
$034 003306 001153 JMRBY ; THIS FLAG 
132 
1324 TEST START AND RESTART 
1325 
1326 003310 012706 001100 . BEGIN: MOV #STACK, SP +SET UP STACK 
1327 003314 106427 O00340 MTPS #340 >;LOCK OUT INTERRUPTS 
1328 003320 032777 O00002 176112 BIT #SWO1, dSHR > 1F SWO1=1, GET STARTING PC 
1329 003326 001413 BEQ 3$ 
1330 003330 104406 INSTR ;OQUTPUT MESSAGE & GET INPUT STRING 
1331 003332 015513 MTSTPC =; MESSAGE 
1332 OO3334 104410 PARAM ;CONVERT STRING 
1333 003336 003374 TST1 7LOW LIMIT 
1334 003340 017500 17500 «=;HxHIGH LIMIT 
1335 003342 001402 STSTNM ;STORE AT THIS LOCATION 
1336 003344 001 .BYTE 1 ; MASK 
1337 003345 001 .BYTE 1 ;HOW MANY TIMES + 2 
1338 003346 016767 176030 175530 MoV STSTNM, RETURN 
1339 003354 000403 BR 4$ 
1340 003356 012767 003374 175520 3%: MOV #TST1, RETURN *START AT TEST 1 
1341 003364 104401 015507 4S: TYPE MR > TYPE R 
1342 003370 000177 175510 JMP ORE TURN START TESTING 


: # 
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DZDUGB. M11 31-MAY-77 09:4 INITIALIZE THE COMMON TAGS SEQ 0030 
1344 
oe +; THIS TEST PROVES EXISTANCE OF DEVICE REGISTERS 
1347 5s REKKKAAAAAA AAA AAA AAA AAA AAA AA AAA AAA AAA AAA A AAA AAA AAA KEKE 
1348 003374 O00004 TST1: SCOPE 
1349 003376 012737 017360 000004 MOV RTRPREG, d#4 ;SETUP TRAPCATCHER 
1350 003404 016737 174730 000006 MOV PR7, d#6 ; 
1351 003412 105277 176274 INCB ORXCSR > TEST THIS REG 
1352 003416 000401 BR - > 1F OK JMP AROUND ERROR 
1353 003420 104004 ERROR > CHECK DEVICE REG ADDRESSES 
1354 003422 105277 176266 INCB awexcsr ; TEST UPPER BYTE THIS oo ag 
1355 003426 000401 BR ; 1F OK JMP AROUND ERRO 
1356 003430 104004 ERROR *y > CHECK DEVICE REG ADDRESSES 
1357 003432 012737 O00006 O00004 MoV #6, 084 ;RESTORE TRAPCATCHER 
4or 003440 012737 ON0000 000006 MoV #0, d#6 ; 
1 
1360 OO3446 012767 003777 175444 MoV #3777, HOLD ;SET LONGER DELAY FOR TEST. 
for ++ THIS TEST PROVES EXISTANCE OF DEVICE REGISTERS 
1363 oo PTTTTTETTTTTTTT TEETER TTT TTT T TTT TTT ETE TTT ete TTT ttt ett tthe 
1364 O0O3454 cO00004 TST2: SCOPE 
1365 003456 012737 017360 O0C004 MOV #TRPREG, d#4 ; SETUP TRAPCATCHER 
1366 003464 016737 174650 000006 MOV PR7, 086 ; 
1367 003472 105277 176220 INCB OR XOBUF ; TEST THIS REG 
1368 003476 000401 BR . +4 :1F OK JMP AROUND ERROR 
1369 003500 104004 ERROR u ; CHECK DEVICE REG ADDRESSES 
1370 003502 105277 176212 INCB HR XOBUF ; TEST UPPER BYTE THIS REGISTER 
1371 003506 000401 BR . +4 > 1F OK JMP AROUND ERROR 
1372 003510 104004 ERROR 4 ; CHECK DEVICE REG ADDRESSES 
1373 003512 012737 O00006 o00004 MOV #6, 084 »RESTORE TRAPCATCHER 
5m 003520 012737 O00000 00006 MOV #0, d#6 ; 
1 
pot 3; THIS TEST PROVES EXISTANCE OF DEVICE REGISTERS 
137 re 
1378 Pe $$ 9000550050000 00 000000 000000000 0050000500000 89000009 509008099) 
1379 003526 000004 TST3: SCOPE 
1380 003530 012737 017360 900004 MOV #TRPREG, d84 ; SETUP TRAPCATCHER 
1381 003536 016737 174576 000006 MOV PR7, 086 : 
1382 003544 105277 176152 INCB OPARCSR > TEST THIS REG 
1383 003550 000401 BR _ +4 > 1F OK JMP AROUND ERROR 
1384 003552 104004 ERROR 4 >;CHECK DEVICE REG ADDRESSES 
1385 003554 105277 176144 INCB @HPARCSR > TEST UPPER BYTE THIS REGISTER 
1386 003560 000491 BR . +4 > 1F OK JMP AROUND ERROR 
1387 003562 104004 ERROR 4 ; CHECK DEVICE REG ADDRESSES 
1388 003564 012737 O00006 9000004 MOV #6, 084 ;RESTORE TRAPCATCHER 
ites 003572 012737 O00000 00006 MOV #0, d#6 ; 
1 
1391 >: THIS TEST PROVES EXiSTANCE OF DEVICE REGISTERS 
1392 ae 
1393 5 AAA KA AAA REAR AAA AAR AAAS AES 
1394 003600 000004 TST4: SCOPE 
1395 003602 012737 017360 000004 MOV # TRPREG, d84 ;SETUP TRAPCATCHER 
1396 003610 016737 174524 000006 MOV PR7,@%6 ; 
1397 003616 105277 176104 INCB @TXCcSR > TEST THIS REG 
1398 003622 000401 BF +4 > 1F OK JMP AROUND ERROR 


1399 003624 104004 ERROR 4 CHECK DEVICE REG ADDRESSES 
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1400 
1401 
1402 
1403 
1404 
1405 
1406 
1407 
1408 
1409 
1410 
1411 
1412 
1413 
1414 
1415 
1416 
1417 
1418 
1419 
1420 
1421 
1422 
1423 
1424 
1425 
1426 
1427 
1428 
1429 
1430 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
1440 
1441 
1442 
1443 
1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 
1452 
1453 
1454 
1455 


003626 
003632 
003634 
003636 
003644 


003652 
003654 
003662 
003670 
003674 
003676 
003700 
003704 
003706 
003710 
003716 


003724 
003726 
003734 
003736 


003740 
002742 
003750 
003756 
003760 
003762 
003770 
003776 
004000 


004002 
004010 


004052 
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105277 
000401 
104004 
012737 
01273? 


000004 
012737 
016737 
10&277 
000401 
104004 
105277 
000401 
104004 
012737 
012737 


000004 
022777 
001401 
104004 


000004 
052777 
032777 
001001 
104004 
042777 
032777 
001401 
104004 


052777 
052777 


105767 
100006 
032777 
001401 
104004 
oo04cs 
032777 
001001 
104004 
000240 
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176076 


000006 
000000 


017360 
174452 
176036 


176030 


000006 
000000 


00c000 


000002 
000002 


000002 
000002 


000002 
000400 


175127 
000002 


000002 


000004 
000006 


000004 
000006 


900004 
000006 


175776 


175742 
175734 


175722 
175714 


175702 
175710 


17560 


175644 


04 


r Ss 


PAGE 33 
INITIALIZE THE COMMON TAGS 


INCB — ; TEST ott BYTE THIS REGISTER 
BR 1F OK JMP AROUND ERROR 


ERROR Ne +CHECK DEVICE REG ADDRESSES 
MOV #6, 084 RESTORE TRAPCATCHER 
MOV #0, d#6 ; 


++ THIS TEST PROVES EXISTANCE OF DEVICE REGISTERS 


MEttittittttetttttttttttetttitttttttttttt iti tttttett ttt t titi shee 


TSTS: 


SCOPE 
MOV #TRPREG, O84 ; SETUP TRAPCATCHER 
MOV PR7, O#6 ; 


INCB aTXDBUF + TEST THIS REG 

BR . +4 + 1F OK JMP AROUND ERROR 

ERROR 4 + CHECK DEVICE REG ADDRESSES 
INCB OHTXDBUF > TEST UPPER BYTE THIS REGISTER 

BR . +4 + 1F OK JMP AROUND ERROR 

ERROR 4 CHECK DEVICE REG ADDRESSES 
MoV #6, 084 RESTORE TRAPCATCHER 

MOV #0, d#6 ; 


;;BUS DRIVER TEST 


PETIT ttttttttttttt ttt ttt ttt tttttttttttt titi titi tts t titi s 
TSTe: SCOPE 


CMP #0, dTXDBUF 

BEQ . +4 

ERROR 4 ;READING TXDBUF SHOULD BE ALL ZERO'S 
+; THIS TEST PERFORMS MASTER RESET TESTING & 

+; TESTING OF READ/WRITE BIT OTR 


MUTT TT TTT Tt titi ttt ttt ttt ttt tet titi tt tt ttt ttt tet ttt t titi tits: 
TST?: SCOPE 


1S: 


28: 


BIS #OTR. ARXCSR +SET THIS BIT 


BIT #OTR, ARXCSR TEST THIS BIT 

BNE . +4 -BR IF "1" 

ERROR 4 > THIS BIT SHOULD BE SET 
BIC #OTR, ARXCSR *CLR THIS BIT 

BIT #DTR. ARXCSR TEST THIS BIT 

BEQ . +4 7>BR IF “QO” 

ERROR 4 > THIS BIT SHOULD BE CLR 


;NOW SET THIS BIT 

BI 1S #DTR. ARXCSR 

BIS @MRESET, dTXCSR -; MASTER RESET 

:; CHECK EXISTANCE OF CPTIONAL CLEAR JUMPER 


TSTB OPTCLR > TEST FLAG 

BPL 1$ OPTIONAL CLR JUMPER IS NOT IN 

BIT #DTR, ARXCSR TEST THIS BIT 

BEQ +4 /BR IF “G" 

ERROR 4 > CHECK OUT MASTER RESET LOGIC 
BR z$ ; JMP AROUND 

BIT #OTR, ARXCSR TEST THIS BIT 

BNE +4 2 we 

ERROR 4 /CHECK OUT OPTIONAL CLR JUMPER 
NOP ; ‘ 


SEQ 0031 


ce G 3 
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1456 
1457 >; THIS TEST PERFORMS MASTER RESET TESTING & 
nae >; TESTING OF READ/WRITE BIT RTS 
1460 5s MAXKKKKAAAKA AAA AAA AAA AAA AA AAA AAA AAA AA AAA AAA AAAS 
1461 004054 QO00004 TST10: SCOPE 
1462 004056 052777 OO00004 175626 BIS #RTS, ARXCSR ;SET THIS BIT 
1463 004064 032777 OO0004 175620 BIT #RTS, ARXCSR ; TEST THIS BIT 
1464 004072 001001 BNE . +4 ;BR IF 41" 
1465 004074 104004 ERROR 4 ; THIS BIT SHOULD BE SET 
1466 004076 042777 OO00O4N 175606 BIC #RTS, ARXCSR ;CLR THIS BIT ¥ 
1467 004104 032777 OO0004 175600 BIT #RTS, ARXCSR ; TEST THIS BIT ' 
1468 004112 001401 BEQ . +4 ;BR IF "QO" 
1469 004114 104004 ERROR uy >; THIS BIT SHOULD BE CLR 
1470 ;NOW SET THIS BIT 
1471 004116 052777 O00004 175566 BIS #RTS, ARXCSR 
1472 004124 052777 OOO400 175574 BIS #MRESET, @TXCSR ;MASTER RESET 
meh >; CHECK EXISTANCE OF OPTIONAL CLEAR JUMPER 
q a? 
1475 004132 105767 175013 TSTB OPTCLR > TEST FLAG 
1476 004136 100006 BPL 1$ ;OPTIONAL CLR JUMPER |S NOT IN 
1477 004140 032777 OOOOOY 176544 BIT #RTS, ARXCSR > TEST THIS BIT 
1478 004146 001401 BEQ +4 -BR IF "OQ" 
1479 004150 104004 ERROR u >; CHECK OUT MASTER RESET LOGIC 
1480 004152 000405 BR 23 ; JMP AROUND 
1481 004154 032777 OOCN04 176530 15%: BIT #RTS, ARXCSR ; TEST THIS BIT 
1482 004162 001001 BNE . +4 ;a2 WF =i" 
1483 004164 104004 ERROR y ; CHECK OUT OPTIONAL CLR JUMPER 
1484 004166 000240 2s: NOP 
1485 
1486 ;WAIT FOR CABLE DELAYS 
1487 5 MAXKKKKK AAA AAA AAA AAA AAA AAAS 
1488 ;MODIFY “HOLD: " ACCORDINGLY FOR FASTER OR SLOWER MACHINE 
1489 OO 09000 50000000000000000000000909898 0 | 
1490 004170 016702 174724 MOV HOLD,.R2 ; SET DELAY TIME 
1491 004174 005302 DEC R2 
1492 004176 001376 BNE .°2 ;WAIT THIS TIME 
1493 ;O0K NOW FALL THRU AND CONTINUE TESTING.......... 
1494 ;EXIT STAGE LEFT....CHINNNG! 
1495 3; THIS TEST PERFORMS MASTER RESET TESTING & 
1496 >; TESTING OF READ/WRITE BIT STD 
1497 3s 
1498 Sooo ooo OOO IOI III IOI OIE 
1499 004200 000004 TST11: SCOPE 
1500 004202 052777 O00010 175502 BIS #STD. ARXCSR ;SET THIS BIT 
1501 004210 032777 000010 175474 BIT #STD, ARXCSR + TEST THIS BIT 
1502 004216 001001 BNE +4 ;BR IF “1" 
1503 004220 104004 ERROR 4 ; THIS BIT SHOULD BE SET 
1504 004222 042777 000010 17542 BIC #STD, ARXCSR >CLR TH'S BIT 
1505 004230 032777 OO00010 175454 BIT #STD, ARXCSR ; TEST THiS BIT 
1506 004236 001401 BEQ . +4 [BR oe 
1507 004240 104004 ERROR y >; THIS BIT SHOULD BE CLP 
1508 ;NOW SET THIS BIT 
1509 004242 052777 000010 175442 BIS #STD. ARXCSR 
1510 004250 052777 O00400 175450 BIS @MRESET.@TXCSR ;MASTER RESET 


1511 ;; CHECK EXISTANCE OF OPTIONAL CLEAR JUMPEP 


STEERER | 
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1513 004256 105767 174667 TSTb OPTCLR + TEST FLAG 

1514 004262 100006 BPL 1$ ;OPTIONAL CLR JUMPER IS NOT IN 

1515 004264 032777 000010 175420 BIT #STO, ARXCSR + TEST THIS BIT 

1516 004272 001401 BEQ . +4 ;BR IF “OQ” 

1517 004274 104004 ERROR uy + CHECK OUT MASTER RESET LOGIC 
1518 004276 000405 BR 23 ; JMP AROUND 

1519 004300 032777 O00010 175404 18 BIT #STD, ARXCSR > TEST THIS BIT 

1520 004306 001001 BNE +4 sR WF "Ey" 

1621 004310 104004 ERROR 4 >CHECK OUT OFTiONAL CLR JUMPER 
ant 004312 000240 23: NOP 

1 

1524 ++ THIS TEST PERFORMS MASTER RESET TESTING & 

ta +, TESTING OF READ/WRITE BIT SYNSCH 

1 a3 

1527 2 MAAK AAAA AERA AAA AA AAA AAA AAA AAA TAA AAA AAA AAAS 
1528 004314 9O00004 TSTi2: SCOPE 

1529 004316 052777 000020 175366 BIS #SYNSCH, ARXCSR ;SET THIS BIT 

1530 004324 032777 000020 175360 BIT 


@SYNSCH. ARXCSR > TEST THIS BIT 
1531 004332 001001 BNE . +4 *BR IF "41" 
1532 004334 104004 ERROR 4 THIS BIT SHOULD BE SET 


1533 004336 042777 QOO0020 176346 BIC @SYNSCH, ARXCSR ; CLR THIS BIT 
1534 004344 032777 000020 176340 BIT #SYNSCH. ORXCSR ; TEST THIS BIT 
1535 004352 001401 BEQ +4 7BR IF “OQ” 


1536 004354 104604 ERROR + THIS BIT SHOULD BE CLR 


4 
1537 ;NOW SET THIS BIT 


1538 004356 052777 O000uU20 175326 BIS #SYNSCH, ARXCSR 

1539 004364 052777 OOO4OO 175334 BIS #MRESET, @dTXCSR ;MASTER RESET 

1540 004372 032777 GON0020 175312 BIT #SYNSCH, ARXCSR ; TEST THIS BIT 

1541 OO4400 001401 BEG +4 /BR IF "OQ" 

15482 004402 104004 ERROR 4 >CHECK OUT MASTER RESET LOGIC 
1543 

1544 >; THIS TEST PERFORMS MASTER RESET TESTING & 

1545 ++ TESTING OF READ/WRITE BIT DSINTE 

1546 ie 

1547 ae © 2 22 © oo 2 0 0990999999989 09950900555 05505 0500505550000 5500500558 5) 
1548 004404 O00004 TST13: SCOPE 

1549 004406 052777 O00040 175276 BIS #OSINTE, @ARXCSR ;SET THIS. BIT 

1550 004414 032777 OO0O4O 175270 BIT 


#OSINTE,.ORXCSR -; TEST THIS BIT 
1551 004422 001001 BNE . +4 -BR IF "4" 


1552 004424 104004 ERROR 4 » THIS BIT SHOULD BE SET 
1553 004426 042777 OOOO40 175256 BIC #DSINTE.ORXCSR -;CLR THIS BIT 

1554 004434 032777 OO0040 175250 BIT SDSINTE.ORXCSR ; TEST THIS BIT 

1555 004442 001401 BEQ . +4 -BR IF “OQ” 

1556 OO4444 104004 ERROR 4 THIS BiT SHOULD BE CLP 
1557 »NOW SET THIS BIT 

1558 004446 052777 O00040 175236 Bis ROS INTE, ARXCSR 

1559 Q04454 052777 O00400 175244 BIS @MRESET, @TXCSR ;MASTER RESET 

1560 004462 032777 OO0O4O 175222 BIT RDSINTE.@ORXCSR ; TEST ThIS BIT 

1561 004470 001401 BEQ . +4 -BR IF “G" 

1562 004472 104004 ERROR 4 +CHECK OUT MASTER RESET LOGIC 
1563 

1564 >, THIS TEST PERFORMS MASTER RESET TESTING & 
- 1565 >; TESTING OF READ/WRITE BIT RINTEN 

1566 , 3 


METITCTTTtittt titi ttttttttttititt ttt TTT TT TT TTT TITLE TTT TTT TTT iT 





SEQ 0033 





DZ20UQ-B MACY11 30(104%6) 


DZ2DUGB. M11 


1568 004474 
1569 004476 
1570 004504 
1571 GO4512 
1572 O04514 
1573 004516 
1574 004524 
1575 004532 
1576 004534 


1578 004536 
1579 OO04544 
1580 004552 
1581 004560 
1582 004562 


1588 004564 
1589 004566 
1590 004574 
1591 004602 
1592 004604 
1593 004606 
1594 004614 
1595 004622 
1596 004624 


1598 004626 
1599 004634 
1600 004642 
16C1 GO4650 
1602 004652 


1608 004654 
1609 004656 
1610 O04%664 
1611 004672 
1612 004674 
1613 004676 
1614 004704 
1615 004712 
1616 004714 


1618 004716 
1619 004724 
1620 004732 
1621 004740 
1622 004742 
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000004 
052777 
032777 
001001 
104004 
042777 
032777 
001401 
104004 


052777 


104004 


Co0004 
052777 
032777 
001001 
104004 
042777 
032777 
001401 
104004 


052777 
052777 
032777 
001401 
104004 


000004 
0£2777 
032777 
001001 
104004 
042777 
032777 
001401 
104004 


052777 
052777 
032777 
001401 
104004 


000400 
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TST14: 


000100 
000100 


175206 
175200 


000100 
000100 


175166 
175160 


000100 
000400 
000100 


175146 
175154 
175132 


TST15: 
1761 
OOO40G 17581 


00C400 
000400 


175076 
17£070 


000400 
000400 
000460 


175056 
175064 
175042 


TST16: 


600001 
000001 


175042 
175034 


000001 
00001 


175022 
175014 


000001 
000400 
000001 


175002 
174774 
174766 


1 3 


SCOPE 

BIS #RINTEN, ARXCSR 
BIT #RINTEN, ARXCSR 
BNE . +4 ;BR IF 
ERROR 4 

BIC #RINTEN, ARXCSR 
BIT #RINTEN, ARXCSR 
BEQ — 

ERROR 

> NOW set’ THIS BIT 

BIS #RINTEN, ARXCSR 
BIS #MOESET, ATXCSR 
BIT #RINTEN, ARXCSR 
BEQ . +4 

ERROR 4 


> THIS TEST PERFORMS MASTER RESET TESTING & 


+SET THIS BIT 
; TEST THIS BIT 


a ‘ky 


+ THIS BIT SHOULD BE SET 


CLR THIS BIT 
+ TEST THIS BIT 
-BR IF “O" 


+ THIS BIT SHOULD BE CLR 


;MASTER RESET 
TEST THIS BIT 
BR IF “O" 


> CHECK OUT MASTER RESET LOGIC 


> TESTING OF READ/WRITE BIT STPSYN 
WITTTTTTTTTTTTETT TTT TETERT TTT EEE 


SCOPE 

BIS #STPSYN, ARXCSR 
BiT #STPSYN, ARXCSR 
BNE +4 7BR IF 
ERROR 4 

BIC #STPSYN, ARXCSR 
BIT #STPSYN, ARXCSR 
BEQ . +4 

ERROR 4 


;NOW SET THIS BIT 
BIS #STPSYN, ARXCSR 
BIS RMRESET, dTXCSR 


BIT #STPSYN, ARXCSR 
BEQ +4 
ERROR 4 


+; THIS TEST PERFORMS MASTER RESET TESTING & 


*SET THIS BIT 


TEST THIS BIT 
> 


> THIS BIT SHOULD BE SET 


-CLR THIS BIT 
TEST THIS BiT 
*>BR IF “O" 


THIS BIT SHOULD BE CLR 


;MASTER RESET 
TEST THIS BIT 
BR IF "Q" 


+CHECK OUT MASTER RESET LOGIC 


+> TESTING OF READ/WRITE BIT BREAK 
METTTTTettetti titi titi titi tttttti ttt ttt ttttittt itt titi itt tits 
COPE 


BIS RBREAK, ATXCSR 
BIT #BREAK. dTXCSR 


BNE +4 BR IF 
ERROR 4 

BIC #BREAK, ATXCSR 
BIT #BREAK, ATXCSR 
BEQ +4 

ERROR 


4 
;NOW SET THIS BIT 

BIS #BREAK. ATXCSR 
BIS #MRESET, aTXCSR 
BIT #BREAK, ATXCSR 
BEQ . +4 

ERROR 4 


-SET THIS BIT 
TEST THIS BIT 


“49 


+ THIS BIT SHOULD BE SET 


>CLR THIS BIT 
TEST THIS BIT 
-BR IF “O" 


> THIS BIT SHOULD BE CLR 


*MASTER RESET 
> TEST THIS BIT 
/-BR IF "Q" 


CHECK OUT MASTER PRESET LOGIC 


SEQ 0034 | 


| 
| 
| 
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1624 
1625 
1626 
1627 
1628 
1629 
1630 
1631 


004744 
004746 
004754 
004762 
004764 
004766 
004774 
005002 
005004 


005006 
005014 
005022 
005030 
005032 


005034 
005036 
005044 
005052 
005054 
005056 
005064 
005072 
005074 


005076 
005104 
005112 
005120 
005122 


005124 
005126 
005134 
005142 
005144 
005146 
005154 
005162 
005164 


005166 
005174 


31-MAY-77 


000004 


001401 
104004 


052777 
052777 
032777 
001401 
104004 


000004 
052777 
032777 
001001 
104004 
042777 
032777 
001401 
104004 


052777 
052777 
032777 
001401 
104004 


000004 
052777 
032777 
001001 
104004 
042777 
032777 
001401 
104004 


052777 
052777 


21-SEP-77 09: 
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000010 
000010 


000019 
000010 


000010 
000400 
000010 


000920 
000uU20 


000020 
000020 


000020 
000400 
000020 


000040 
000040 


000040 
000040 


000040 
000400 


174752 
174744 


174732 
174724 


174712 
174704 
174676 


174662 
174654 


174642 
174634 


174622 
174614 
174606 


174572 
174564 


174552 
174544 


174532 
174524 


J 3 


04 PAGE 37 
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++ THIS TEST PERFORMS MASTER RESET TESTING & 
++ TESTING OF READ/WRITE BIT HDXEN 
MEtitttiittitittttitittttttittittttiissttttttttttttisti titi tits) 
TST17: SCOPE 
BIS #HDXEN, ATXCSR ;SET THIS BIT 
BIT #HDXEN, ATXCSR ; TEST THIS BIT 
BNE a 7BR IF "1" 
ERROR 4 + THIS BIT SHOULD BE SET 
BIC #HDXEN. ATXCSR =; CLR THIS BIT 
BIT #HDXEN. ATXCSR =; TEST THIS BIT 
BEQ . +4 ;BR IF "0" 
ERROR 4 + THIS BIT SHOULD BE CLR 
;NOW SET THIS BIT 
Bis #HDXEN, dTXCSR 
BIS @MRESET,@TXCSR ; MASTER RESET 
BIT RHDXEN. ATXCSR =; TEST THIS BIT 
BEQ . +4 +BR IF “O" 
ERROR 4 > CHECK OUT MASTER RESET LOGIC 
>+THIS TEST PERFORMS MASTER RESET TESTING & 
+; TESTING OF READ/WRITE BIT SEND 
me 22929322 % 99939 oo 033 > > 9 29990390 0229 0 9 0209 0 020 08 8 003 0 0 00 0 0 0 000 0 8 | 
TST20: SCOPE 
BIS #SEND, dTXCSR *SET THIS BIT 
BIT #SEND. aTXCSR TEST THIS BIT 
BNE . +4 -BR IF "1" 
ERROR 4 > THIS BIT SHOULD BE SET 
BIC #SEND, dTXCSR -CLR THIS BIT 
BiT #SEND, dTXCSR > TEST THIS BIT 
BEQ . +4 7;BR IF “QO” 
ERROR 4 + THIS BIT SHOULD BE CLR 
;NOW SET THIS BIT 
BIS #SEND, dTXCSR 
BIS @MRESET, dTXCSR -;MASTER RESET 
BIT #SEND. dTXCSR TEST THIS BIT 
BEQ . +4 -BR IF “Q" 
ERROR 4 ;CHECK OUT MASTER RESET LOGIC 
>; THIS TEST PERFORMS MASTER RESET TESTING & 
+: TESTING OF READ/WRITE BIT DNAINTE 
oe oo $$0000000500000509005905530099229505909022000203 992539222528) 
TST21: SCOPE 
BIS #ONAINTE, ATXCSR > SET THIS BIT 
BIT #ONAINTE, dTXCSR >; TEST THIS BIT 
BNE +4 ;BR IF "1" 
ERROR 4 > THIS BIT SHOULD BE SET 
BIC #ONAINTE, ATXCSR 7 CLR THIS BIT 
BIT SONAINTE, ATXCSR ; TEST THIS BIT 
BEQ . -BR IF “OQ” 
ERROR THIS BIT SHOULD BE CLR 
> NOW ser" THIS BIT 
BIS #ONAINTE, ATXCSR 
BIS SMRESET, dTXCSR -MASTER RESET 


SEQ 0035 


| 
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005202 
005210 
005212 


005214 
005216 
005224 
005232 
005234 
005236 
005244 
005252 
005254 


005256 
005264 
005272 
005300 
005302 


005304 


005412 
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032777 
001401 
104004 


000004 
052777 
032777 
001001 
104004 
042777 
032777 
001401 
104004 


052777 
052777 
C32777 
001401 
104004 


000004 
052777 
032777 
001001 
104004 
042777 
032777 
001401 
104004 


052777 
052777 
032777 
001401 
104004 


000004 
052777 
032777 
001001 


000040 


000109 
000100 


000100 
000100 


000100 
000400 
000100 


004000 
004000 


004000 
004000 


004000 
060400 
004000 


010000 
010000 


174516 


174502 
174474 


174462 
174454 


174442 
174434 
174426 


174412 
174404 


174372 
174364 


174352 
174344 
174336 


174322 
174314 


j; SSSUANSEAAESSAAESSORESESAESEAESEAESEASESEAATOOAETSOAETSATSS 


PETTITT Tiittttttttttittttt ttt ttt tt tttitttttttttttt itt tt ttt tt tt: 
TST23: COPE 


MPTTTTITTTITITTTTTTT TTT TTT TTT TT TTT TTT TTT TTT TTT TTT tet TTT eT 
TST24: 


BIT 
BEQ 
ERROR 


K 3 


#ONAINTE, dTXCSR Ae THIS BIT 
+4 . oe " 


4 


’ 


+ CHECK OUT MASTER RESET LOGIC 
+; THIS TEST PERFORMS MASTER RESET TESTING & 


++ TESTING OF READ/WRITE BIT TXINTE 


ERROR 


#TXINTE, dTXCSR 
RTXINTE, ATXCSR 
. +4 7BR IF 


4 
#TXINTE, ATXCSR 
#TXINTE, ATXCSR 
. +4 


4 
+NOW SET THIS BIT 
BIS 


BEQ 
ERROR 


;; TEST MAINT MODE BIT O 
THIS TEST PERFORMS MASTER RESET TESTING & 


RTXINTE, ATXCSR 
#MRESET, dTXCSR 
RTXINTE, ATXCSR 
. +4 

4 


+SET THIS BIT 


; TEST THIS BIT 
=" 
+ THIS BIT SHOULD BE SET 


*CLR THIS BIT 
TEST THIS BIT 
-BR IF “O" 


+ THIS BIT SHOULD BE CLR 


+MASTER RESET 
, TEST THIS BIT 
;BR IF “O" 


+ CHECK OUT MASTER RESET LOGIC 


+; TESTING OF READ/WRITE BIT BIT11 


ERROR 


+ THIS BIT SHOULD BE SET 


#BIT11,aTXCSR SET THIS BIT 
#BIT11.aTXCSR TEST THIS BIT 
+4 7BR IF "1" 

y 

#BITI1,aTXCSR = CLR THIS BIT 
#BIT11, aTXCSR TEST THIS BIT 
+4 ;BR IF "0" 


4 
;NOW SET THIS BIT 


ERROR 


;; TEST MAINT MODE BIT 1 
THIS TEST PERFORMS MASTER RESET TESTING 8 


#B1T11.dTXCSR 
#MRESET, dTXCSR 
#B1T11,.dTXCSR 
+4 

4 


THIS BIT SHOULD BE CLR 


> MASTER RESET 
TEST THIS BIT 
BR IF “O" 


>CHECK OUT MASTER RESET LOGIC 


+; TESTING OF READ/WRITE BIT BiTiz 


#81712. aTXCSR 
#81712, dTXCSR 
. +4 >BR IF 


>SET THIS BIT 
TEST THIS BIT 


ot Yo 


SEQ 0036 
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1736 005414 
1737 005416 
1738 005424 
1739 005432 
1740 005434 


1742 005436 
1743 O05444 
1744 005452 
1745 005460 
1746 005462 


1752 005464 
1753 005466 
1754 005474 
1755 005502 
1756 005504 
1757 005506 
1758 005514 
1759 005522 
1760 005524 


1762 005526 
1763 005534 
1764 005542 
1765 005550 
1766 005552 


104004 
042777 
032777 
001401 
104004 


052777 
052777 
032777 
001401 
104004 


000004 
052777 
032777 
001001 
104004 
042777 
032777 
001401 
104004 


052777 
052777 
032777 
001401 
104004 


000004 
052777 
032777 
001001 
104004 
042777 
032777 
001401 
104004 


052777 
052777 
032777 
001401 
104004 


Ls 
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010000 
010000 


010000 
000400 
010000 


020000 
020000 


020000 
020000 


020u00 
000400 
020000 


040000 
040000 


040000 
040000 


040000 
000400 
040009 


174302 
174274 


174262 
174254 
174246 


174232 
174224 


174212 
174204 


174172 
174164 
174156 


174142 
174134 


174122 
174114 


174102 
174074 
1740c6 


INITIALIZE THE COMMON TAGS 


ERROR 4 

BIC #81712, aTXCSR 
BIT <- aaehohaanae 
BEQ ha 


ERROR 

; NOW set" THIS BIT 

BIS #81712, dTXCSR 

BIS #MRESET. ATXCSR 

BIT #B1T12, dTXCSR 
. +4 


+ THIS BIT SHOULD BE SET 
CLR THIS BIT 
+ TEST THIS BIT 
BR IF “O" 

+ THIS BIT SHOULD BE CLR 


;MASTER RESET 
+ TEST THIS BIT 
BR IF “O" 
+ CHECK OUT MASTER RESET LOGIC 


++ THIS TEST PERFORMS MASTER RESET TESTING & 
++ TESTING OF READ/WRITE BIT CLK 


PETTittitttttitttttitttttttittttttttetttittttt ttt ttt ttt tt tits i te! 
TST25. SCOPE 


BIS #CLK, ATXCSR 
BIT #CLK, aTXCSR 
BNE . +4 ;BR IF 
ERROR 4 

BIC #CLK, dTXCSR 
BIT #CLK, ATXCSR 
BEQ +4 

ERROR 4 

;NOW SET THIS BIT 

BIS #CLK, ATXCSR 
BIS #MRESET. dTXCSR 
BIT #CLK, ATXCSR 
BEG _ +4 

ERROR 4 


;SET THIS BIT 


TEST THIS BIT 
et ba 


+ THIS BIT SHOULD BE SET 
‘CLR THIS BIT 
TEST THIS BIT 
BR IF "0" 

+ THIS BIT SHOULD BE CLR 


MASTER RESET 
TEST THIS BIT 
-BR IF "OQ" 
+CHECK OUT MASTER RESET LOGIC 


+: THIS TEST PERFORMS MASTER RESET TESTING & 
++ TESTING OF READ/WRITE BIT MTDATA 


PETTITT TT Tet ti tti ttt ittit ttt ttt ttt ttt t ett ett titi ett tit ttt shits: 


TST26: SCOPE 
BIS #MTOATA. ATXCSR 
BIT #MTDATA. aTXCSR 
BNE +4 > BR IF 
ERROR uy 
BIC #MTDATA, aTXCSR 
BIT #NTDATA. ATXCSR 
BEQ +4 
ERROR 4 
;NOW SET THIS BIT 
BIS #ATDATA, ATXCSR 
BIS #MRESET. aTXCSR 
BiT #MNTDATA, STXCSR 
BEQ . +h 
ERROR 4 


;SET THIS BIT 


TEST THIS BIT 
was ta 


THIS BIT SHOULD BE SET 
-CLR THIS BIT 
+ TEST THIS BIT 
-BR IF "OQ" 

THIS BIT SHOULD BE CLR 


*MASTER RESET 
> TEST THIS BIT 
BR IF "OG" 
CHECK OUT MASTER RESET LOGIC 


7; THIS TEST VERIFYS THAT INIT (RESET) CLEARS BITS IN THE 


;;RXCSR & TXCSR 


PUTT T Tete t itt it tir ttiti tists iti tis ititttt sitesi titi t titi 


SEQ 0037 
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005644 
005646 
005654 
005662 
005664 
005670 
005674 
005700 
005704 
005706 
005712 
005716 
005720 
005722 
005724 
005730 
005732 
005734 


005736 
005742 
005744 


005746 
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oco004 


104004 


016702 
005302 
001376 


ooooc4 
052777 
032777 
001401 
104004 
052777 
032777 
001401 
104004 


C01401 


177777 
177777 


000340 
174016 
174026 
173245 


000015 
073000 


002200 


173156 


000400 
000400 


000400 
000400 


000400 
173125 


000000 
173652 
000001 
173640 
000400 


174036 
174044 


173750 
173742 


173730 
173722 


173706 


173656 
173646 


21- ats -77 09:04 PAGE 
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40 
INITIALIZE THE COMMON TAGS 


TST2?: 


i$: 


SCOPE 
MOV #177777, A9RXCSR ;SET ALL POSSIBLE BITS 
MOV #177777, dTXCSR ;DITTO 


RESET 
MTPS #340 +RESTORE NON INTERRUPT STATUS 
MOV ORXCSR,R1 + SAVE 


MOV OTXCSR. RZ + SAVE 
TSTB OPTCLR + 1S THE OPTIONAL CLR JUMPER ON ? 


YES 
BIC #16,R1 ;CLR THE NON RESETABLE BITS 
BIC #073000. R1 *CLR ALL NON-CLEARABLE BITS 
TST “ *ARE THEY ALL O ? 


BEQ , 

ERROR +ALL ater tt BITS SHOULD BE CLEAR 
BIC #002200, R2 ; CLERR ALL NON-CLEARABLE BITS 
TST R2 ;ARE THEY ALL O ? 

BEQ . +4 

ERROR 4 ;ALL SPECIFIED BITS SHOULD BE CLEAR 


;WRIT FOR CABLE DELAYS 

; MEXKKAAAAA AAA AAA AAA AAA AAA AA AAA AAT 

;MODIFY “HOLD: " ACCORDINGLY FOR FASTER OR SLOWER MACHINE 
> MAXAERAAAAAAARAAA AA AAA AAA AAA AAA ATA AAAS 

MOV HOLD.R2 ; SET DELAY TIME 

DEC R2 

BNE . *§ ;WAIT THIS TIME 

*OK NOW FALL THRU AND CONTINUE TESTING.......... 

7EXIT STAGE LEFT....CHINNNG! ’ 


+; THIS TEST PERFORMS MASTER RESET TESTING 8& 
++ TESTING OF WRITE ONLY BIT MRESET 


PETIT ttttttttttitttititttttt ttt ttitttitttitttttttt ett ts ttt ts ts 


TST20: 


;; THIS TEST VERIFYS THAT THE RXCSR & TXCSR CAN BE BYTE ADDRESSED (DATOB) 


SCOPE 

BIS @MRESET.@TXCSR ; TRY TO SET THIS BIT 

BIT @MRESET,@TXCSR ; TEST THIS BIT 

BEQ . +4 -BR IF "“O" 

ERROR 4 THIS BIT SHOULD NOT BE SET 

BIS @MRESET. aTXCSR ;MASTER RESET 

BIT @MRESET, dTXCSR ; TEST THIS BIT 

BEQ . +4 7BR IF “O" 

ERROR 4 THIS BIT SHOULD NOT BE SET 
CHECK MASTER RESET LOGIC 


Metitittttettettittitttitttittttttetttitt sities tits tits ttt a itis: 
COPE 


TST31: 


1S: 


BIS SMRESET.@TXCSR ;MASTER RESET 

TSTB Aaa 4 Re OPTIONAL CLR JUMPER ON ? 
BNI 1 

MoV #0, ARXCSR ;CLR OUT NON RESETABLE BITS 
TST @RXCSR ;CLR OUT DSC BY READING RXCSR 

BISB #Bi1TO,dHRXCSR ;SET STRIP SYNC UPPER BYTE 


MoV ARXCSR,R1 ; SAVE RXCSR 
CMP #400.R1 ; TEST RXCSR 
BEQ +4 


} 
| 
| 
— 


SEQ 0038 


rss slestnssseseeesertteeensneepeemeessmeemamuaieensnies 
N 3 
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1848 006060 104004 ERROR uy +ONLY STRIP SYNC SHOULD BE SET 
1849 006062 105077 173624 CLRBE ORXCSR ;CLR LOWER BYTE 
1850 CO06066 017701 173620 MoV ORXCSR,R1 + SAVE RXCSR 
1851 006072 022701 Oo00400 CMP f° ybe + TEST RXCSR 
1852 006076 001401 BEQ 
1852 006100 104004 ERROR ,” ;ONLY STRIP SYNC SHOULD BE SET 
1854 006102 052777 OOO4OD 173616 BIS @MRESET,@TXCSR ;MASTER RESET 
1855 006110 152777 OQO0040 173612 BISB #B1TS, OHTXCSR +SET MAINT CLK UPPER BYTE 
1856 006116 017701 173604 MOV @TXCSR, 1 +; SAVE TXCSR 
1857 006122 042701 002009 BIC #BITW,.R1 +CLR BIT WINDOW (DEPENDENT 
1858 +ON H315 CONNECTOR EXISTANCE) 
1859 006126 022701 020200 CMP #20200, R1 + TEST TXCSR | 
1860 006132 0601401 BEQ . +4 
1861 006134 104004 ERROR 4 + ONLY MAINT CLK BIT & TXDONE SHOULD BE SET 
1862 006136 105077 173564 CLRB @TXCSR ;CLR LOWER BYTE 
1863 006142 017701 173560 MOV OTXCSR.R1 >SAVE TXCSR 
1864 006146 -042701 002000 BIC #BITW,R1 +CLR BIT WINDOW (DITTO) 
1865 006152 022701 020200 CMP #20200, R1 + TEST TXCSR 
1866 006156 001401 REQ . +4 
1867 006160 104904 ERROR 4 +ONLY MAINT CLK BIT & TXDONE SHOULO BE SET 
1868 ++ THIS TEST PERFORMS MASTER RESET TESTING & 
1869 ++ TESTING OF READ ONLY BIT BITW 
ooh ++ MAINT INTERNAL 
1871 
1872 PTTTTSTTITTTETITTTTTTTTTTTTTTTTTTTTT TTT TTT TTT TTT TTTTTT TTT TT TTT T 
1873 006162 oo00nd4 TST32. SCOPE 
1874 006164 012777 O44U01 173534 MOV #MINT'IMTDATA! BREAK, dTXCSR — ;SET MAINT INT. , BREAK, 
1875 ; 
1876 006172 032777 002000 173526 BIT #B1TW, dJTXCSR > TEST BITW 
1877 006200 001001 BNE . +4 
1878 006202 104004 ERROR 4 +BIT WINDOW SHOULD BE SET 
1879 006204 042777 O4OOOD 173514 BIC #MTDATA, ATXCSR 
1880 006212 013702 001132 MOV 0#1132,R2 
1881 006216 005302 1S: DEC R2 
1882 006220 0061376 BNE 1$ 
1883 006222 032777 002000 173476 BIT #BiTW. daTXCSR 
1884 006230 001401 BEQ . +4 
1885 006232 104004 ERROR 4 7BIT SHOULD BE CLR 
1886 ;NOW SET THE MTDATA 
1887 006234 052777 O4OGOO 173464 BIS #MTDATA., aTXCSR 
1888 006242 052777 OOO400 173456 BIS #MRESET,@dTXCSR ;MASTER RESET 
1889 006250 052777 OO4001 173450 BIS #MINT! BREAK, ATXCSR 
1890 006256 013702 001132 MoV 0#1132,.R2 
1891 006262 005302 28: DEC RZ 
1892 006264 001376 BNE 23 
1893 006266 032777 002900 173432 BIT #Bi TW. dTXCSR . 
1894 006274 001401 BEQ _ +4 
1895 006276 104004 ERROR uy +BITW SHOULD BE CLR BY MASTER RESET 
1896 +; THIS TEST PERFORMS MASTER RESET TESTING & 
1897 3; TESTING OF READ ONLY BIT BITW 
1898 7-MAINT EXTERNAL 
1899 +e 
1900 22 AAXRAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA KAKA 
1901 006300 000004 TST33- SCOPE 


+ TEST TO SEE IF EXTERNAL MODEM BYPASS CONNECTOR 
1S ON (H315)....1F “NO” JUMP AROUND TEST 
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006392 
006306 
006310 


006316 
006324 
006326 
006330 
006336 
006344 
006346 


006350 


006404 


006404 
006406 
006414 
006422 
006424 


006426 
006430 
0064 36 
006444 
006446 


006450 
006452 
006460 
006466 
006470 


105767 
100036 
012777 


032777 
001001 
104004 
042777 
032777 
001401 
104004 


052777 
052777 
052777 
032777 
001401 
104004 


000004 
052777 
032777 
001401 
104004 


000004 
052777 
032777 
001401 
104004 


000004 
052777 
032777 
001401 
104004 


172645 
050001 
002000 


040000 
002000 


040000 
000400 
010001 
002000 


000400 
000200 


000400 
004000 


000400 
100000 
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173410 
173402 


173370 
173362 


173350 
173342 
173334 
173326 


173312 
173270 


173270 
173246 


173246 
173224 


15: 


73 KAKKKX 
TST34: 


77 KXKKKK 
TST3S5: 


++ RERKKK 
TST 36: 


B 4 
4 PAGE 42 
INITIALIZE THE COMMON TAGS 
TSTB JMRBY 
BPL 0 


78M 
BIT eee + TEST BITW 
_+ 


ERROR 4 +BIT WINDOW SHOULD BE SET 
BIC #MTOATA, ATXCSR 
BIT atlas 

+ 


BEQ ' 

ERROR 4 *+BIT SHOULD BE CLR 
+NOW SET THE MTDATA 

BIS #MTOATA, ATXCSR 


BIS #MRESET. @TXCSR ;MASTER RESET 
BIS #MEXT' BREAK, aTXCSR 
BIT #BITW. ATXCSR 

+4 


ERROR 4 *BITW SHOULD BE CLR BY MASTER RESET 


++ THIS TEST PERFORMS MASTER RESET TESTING & 
++ TESTING OF READ ONLY BIT RXDONE 


MSTTSETITTETSTTTTTTTTTTTTTTTTTTT TTT TT TTT TTT TT TTT TT TTT 
SCOPE 


BIS #MRESET.dTXCSR ;MASTER RESET 

BIT #RXDONE. ORXCSR ; TEST THIS BIT 

BEQ . +4 BR IF "OQ" 

ERROR 4 +CHECK MASTER RESET LOGIC 
OR SHORT ON THIS BIT 


++ THIS TEST PERFORMS MASTER RESET TESTING & 
++ TESTING OF READ ONLY BIT RECACT 


AXAAAKAAAAE KARA REAR AAA AAA AA AA AA AAA AAA AAA 

SCOPE 

BIS #MRESET,dTXCSR ; MASTER RESET 

BIT #RECACT, ARXCSR ; TEST THIS BIT 

BEQ . +4 BR IF "O" 

ERROR 4 CHECK MASTER RESET LOGIC 
OR SHORT ON THIS BIT 


++ THIS TEST PERFORMS MASTER RESET TESTING & 
‘+ TESTING OF READ ONLY BIT DSC 


MEXAAAKAL AREA A AAA AAA AAA AAA AA AAA AAA AKHAAAEAAEE 

SCOPE 

BIS @MRESET,dTXCSR ;MASTER RESET 

BIT #DSC. ARXCSR + TEST THIS BIT 

BEQ +4 BR IF “O" 

ERROR 4 +CHECK MASTER RESET LOGIC 
OR SHORT ON THIS BIT 


++ THIS TEST PERFORMS MASTER RESET TESTING & 
+, TESTING OF READ ONLY BIT TXDONE 


1$ +1T 1S NOT ON 
MOV #MEXT!MTDATA! BREAK, dTXCSR a MAINT EXT. , BREAK, 


SEQ 0040 


DZDUQ-B MACY11 3011046) 


DZ20UGB. M11 


006472 
006474 
006502 
006510 
006512 


006514 
006516 
006524 
066532 
006534 


006536 
006540 
006546 
006552 
006556 
006562 
006564 
006566 


006570 
006572 
006600 
006606 
006610 


006612 
006614 
006622 
006630 
006632 
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000004 
052777 
032777 
001001 
104004 


o0co04 
052777 
032777 
001401 
104004 


000004 
052777 
016703 
012700 
017701 
120001 
001401 
104002 


000004 
052777 
032777 
001401 
104004 


000004 
052777 
032777 
001401 
104004 
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000400 
000200 


000400 
100000 


000400 
172144 
000577 
173134 


000400 
010000 


000400 
020000 


173224 
173216 


173202 
173174 


173160 


173126 
173110 


173104 
1730e6 


s 3 
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INITIALIZE THE COMMON TAGS 


MErectrittititttttttttttttttittitstirettttttttttsstsssitist itis se 
TST37: SCOPE 


BIS @MRESET,A@TXCSR ; MASTER RESET 

BIT #TXDONE, ATXCSR ; TEST THIS BIT 

BNE _*™ BR IF "1" 

ERROR 4 + CHECK MASTER RESET LOGIC 
OR SHORT ON THIS BIT 

;; THIS TEST PERFORMS MASTER RESET TESTING & 

++ TESTING OF READ ONLY BIT ONA 


Mettttttttttttttetttttttettttitttttttttititttttttttitt ttt ist ee 
TST4O: SCOPE 


BIS #MRESET.dTXCSR ;MASTER RESET 

BIT # DNA, ATXCSR + TEST THIS BIT 

BEQ . +4 7BR IF “O" 

ERROR 4 ; CHECK MASTER RESET LOGIC 
OR SHORT ON THIS BIT 


+; THIS TEST PERFORMS MASTER RESET TESTING & 
++ TESTING OF READ ONLY WORD RECEIVE DATA 


METittttttttttttttttttttttttttttt ttt ttttttttttttttttsett thst ttt S| 
T SCOPE 


ST41: 


BIS #MRESET, dTXCSR -;MASTER RESET 
MOV RXDBUF,. R3 FOR ERROR MESSAGE 


MOV #377,R0 7 EXPECTED 

MOV ORXDBUF. R1 > ACTUAL 

CMPB RO, R1 

BEQ . +4 BR IF "“O" 

ERROR 2 REC DATA SHOULD BE ALL 1°S 


++ THIS TEST PERFORMS MASTER RESET TESTING & 
+; TESTING OF READ ONLY BIT PARER 


PETIT TTttetittt ttt t ttt titi test ttt t ttt titi siti itt ttt seit tits s: 
COPE 


TST42: 


BIS SMRESET, aTXCSR ;MASTER RESET 

BIT #PARER, ARXDBUF <= TEST THIS BIT 

BEQ . +4 *BR IF “O" 

ERROR 4 > CHECK MASTER RESET LOGIC 
OR SHORT ON THIS BIT 


i; THIS TEST PERFORMS MASTER RESET TESTING & 
+; TESTING OF READ ONLY BIT FRMERR 


POUTTTTTTTTITTTTTTTT TTT TTT TTT TTT TTT TT TTT TTT TTT TTT ttt ttt ttt 
TST43: 


PE 
BIS #MRESET, @TXCSR -;MASTER RESET 
BIT #FRMERR,. ARXOBUF ; TEST THIS BIT 
BEQ +4 ;BR 1F "G" 
ERROR 4 CHECK MASTER RESET LOGIC 
OR SHORT ON THIS BIT 


+; THIS TEST PERFORMS MASTER RESET TESTING & 
+; TESTING OF READ ONLY BIT OVRRUN 


se? 


i 


SEQ 0041 


ee 


D 4 
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DZ0UGB. M11 31-MAY-77 09: 47 INITIALIZE THE COMMON TAGS SEQ 0042 
2016 5s AAXKKAAAAAAAAA AAA AA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA EAA AAAS 
2017 006634 000004 TST44: SCOPE 
2018 006636 052777 O0O400 173062 BIS #MRESET,@TXCSR ;MASTER RESET 
2019 006644 032777 O40000 173044 BIT #OVRRUN, ORXOBUF ; TEST THIS BIT 
2020 006652 001401 BEQ . +4 -BR IF “O" 

2021 006654 104004 ERROR 4 +; CHECK MASTER RESET LOGIC 
954 . +OR SHORT ON THIS BIT 

2024 ; ++ THIS TEST PERFORMS MASTER RESET TESTING & 

oar +; TESTING OF READ ONLY BIT RXERR 

2027 5p MAXXKKAKAAAA AAA ARERR AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA EES 
2028 006656 00C004 TST4S: SCOPE 

2029 006660 052777 O00400 173040 BIS #MRESET. dTXCSR ;MASTER RESET 

2030 006666 032777 100000 173022 BIT #RXERR, ARXOBUF ; TEST THIS BIT 

2031 006674 001401 BEQ . +4 BR IF “O" 

2032 006676 104004 ERROR 4 ;CHECK MASTER RESET LOGIC 
ay OR SHORT ON THIS BIT 

2035 ++ THIS TEST VERIFYS THAT THE DEVICE REGISTER RXCSR 

2036 +, 1S CLEARED BY MASTER RESET 

2037 5s MEAAAKAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA EAS 
2038 006700 000004 TST46: SCOPE 

2039 006702 012777 177777 173002 MOV #177777, QRXCSR ;SET ALL POSSIBLE BITS 

2040 006710 052777 OO0400 173010 BIS @MRESET,@TXCSR ;MASTER RESET 

2041 006716 016703 172770 MOV RXCSR,R3 7>FOR ERROR MESSAGE 

2042 006722 017701 172/64 MOV ORXCSR.R1 SAVE ACTUAL 

2043 006726 105767 172217 TSTB OPTCLR TEST THE OPT CLR JUMPER FLAG 
2044 006732 100010 BPL 1$ +NO .1TS NOT IN 

2045 006734 042701 173000 BIC #173000, R1 +CLR NON-MASTER RESETTABLE 

2046 +BITSCSINCE THESE ARE DEPENDENT ON H315 CONNECTORS EXISTANCE) 
2047 006740 012700 9000000 MOV #0,RO ;EXPECTED 

2048 006744 020001 CMP RO.Ri ;EXPECTED VS ACTUAL 

2049 006746 001401 BEQ . +4 

2050 006750 104001 ERROR 1 ALL MASTER RESETABLE BITS SHOULD BE CLR 
2051 006752 000407 BR 2$ + JUMP AROUND 

2052 006754 042701 173000 1S: BIC #173000, R1 >CLR NON-MASTER RESETABLE 

2053 ;BITSCSINCE THESE ARE DEPENDENT ON H315 CONNECTORS EXISTANCE) 
2054 006760 012700 O00016 MoV #16. RO + EXPECTED 

2055 006764 020001 CMP RO.R1 : EXPECTED VS ACTUAL 

2056 006766 001401 BEQ . +4 

2057 006770 104001 ERROR 1 ONLY STD. RTS,.OTR BITS SHOULD BE SET 
2058 ;NOTE THAT STD IS READ =1 INDEPENDENT OF 

2059 +SEC XMIT #6 STRAP 

2060 006772 28: 

2061 ;WAIT FOR CABLE DELAYS 

2062 ; MAXKAAAAARAA AAA RTARTA AAA AAA AAA TAT S 

2063 ;MODIFY “HOLD: " ACCORDINGLY FOR FASTER OR SLOWER MACHINE 
2064 ; MERAAAAAAAAAAA AAA AAA AAA AAA A TATE AY 

2065 006772 016702 172122 MOV HOLD.R2 ; SET DELAY TIME 

2066 006776 005302 DEC R2 

2067 007000 001376 BNE ed ;WAIT THIS TIME 

2068 ;OK NOW FALL THRU AND CONTINUE TESTING........... 

2069 ;EXIT STAGE LEFT....CHINNNG! 

2070 


—E 4 
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2072 3; THIS TEST VERIFYS THAT THE DEVICE REGISTER TXCSR 
gh, +; 1S CLEARED BY MASTER RESET 
2075 jj AAXKAAAAAA AAA AAA AAA AAA AAA AAA AAA AA AAA AA AAAS 
2076 007002 o00004 TST47: SCOPE 
2077 007004 012777 177777 #172714 MOV #177777, aTXCSR ;SET ALL POSSIBLE BITS 
2078 007012 052777 OO0400 172706 BIS #MRESET, aTXCSR MASTER RESET 
2079 007020 016703 172702 Mov TXCSR,.R3 ;FOR ERROR MESSAGE 
2080 007024 017701 172676 MoV aTXCSR, R1 ; SAVE ACTUAL 
2081 007030 012700 000209 MoV #200,R0 ; EXPECTED 
2082 007034 020001 CMP RO.R1 ;EXPECTED vS ACTUAL 
2083 007036 001401 BEQ +4 
wee 007040 104001 ERROR 1 ; ONLY TXDONE SHOULD BE SET 
2086 3; THIS TEST VERIFYS THAT THE DEVICE REGISTER RXDBUF 
veel ie1S CLEARED BY MASTER RESET 
2089 [SSO OOOO OOOO OOOO 
2090 007042 o00004 TSTSO: SCOPE 
2091 007044 052777 OO0400 172654 BIS RMRESET, aTXCSR ;MASTER RESET 
2092 007052 016703 172640 Mov RXDBUF, R3 ;FOR ERROR MESSAGE 
2093 007056 017701 172634 MoV ORXDBUF, R1 ; SAVE 
2094 007062 012700 000377 Mov #377,RO0 ; EXPECTED 
2095 007066 020001 CMP RO.R1 ;EXPECTED VS ACTUAL 
2096 007070 001401 BEQ +4 
2097 007072 104002 ERROR 2 ; ONLY REC DATA BITS SHOULD BE SET 
2098 ;; THIS TEST VERIFYS BITS RING. CTS, CARDET. SRD. DSR 
2099 ;;ALSO DSC 1S GENERATED WHEN ANY OF THESE BITS ARE SET 
2100 ;70R CLEARED..... 1T ALSO CHECKS THE MODEM BYPASS 
2101 ;; JUMPER AND THAT THESE BITS CAN BE READ 
sia +7NOTE: THE MODEM BYPASS JUMPER MUST BE ON (H315) 
210 
2104 PPUTTTTITTTTTTTTTTT TTT TTT TTT TERT ET TTT T TTT TT TTT ttt Tete 
2105 007074 o00004 TSTS1: SCOPE 
2106 007076 005077 172619 CLR ARXCSR ;TO GET RID OF STD .RTS. OTR IF OPTCLR JUMPER #4 IS NOT ON 
2107 007102 052777 000400 172616 BIS @MRESET. aTXCSR ;MASTER RESET 
2108 ; TEST THAT A "YES" ANSWER WAS GIVEN TO QUESTION IN 
2109 ; THE MONITOR OR BY DEFAULT 
2110 ; THIS TEST WILL BE BYPASSED IF THE EXTERNAL BYPASS 
2111 ; JUMPER 1S NOT INSTALLED 
2112 007110 105767 172037 TSTB JMRBY 
2113 007114 100402 BMI +6 ; THE ANSWER WAS YES..... 
2114 ; PERFORM THIS TEST 
2115 007116 000167 000652 JMP OUT1 : wae Sate THIS TEST IF THE ANSWER 
2116 ; 
2117 007122 016703 172564 MoV RXCSR,R3 ;SET UP FOR ERROR MESSAGE 
2118 007126 017701 172560 MoV ORXCSR.R1 ; ACTUAL 
2119 007132 005000 CLR RO ; EXPECTED 
2120 007134 005701 TST R1 ;18 1T= 0? 
2121 007136 001401 BEQ +4 
2122 007140 104001 shee 1 ;RXCSR SHOULD oe CLR 
2123 007142 052777 000002 172542 BIS #OTR, ARXCSR ;SET OTR 
2124 ; WAIT FOR CABLE DELAYS 
2125 j AXXKEAAAAAAAA AAA AAAS 
2126 ;MODIFY “HOLD: " ACCORDINGLY FOR FASTER OR SLOWER MACHINE 


2127 ; MHXKKAAAAAAA AAA AAA A AAA AA AAA AY 
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007150 
007154 
007156 


007160 
007164 
007170 
007172 
007174 
007176 
007202 
007206 
007210 
007212 


007214 


007222 
007226 
007230 


007232 
007236 
007242 
007244 
007246 
007250 
007254 
007260 
007262 
007264 


007266 
007272 
007274 
007300 
007302 


007310 
007314 
007316 


007320 
007324 


007330 
007332 
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016702 
005302 
001376 


017701 
012700 
020001 
001401 
104001 
017701 
012700 
020001 
001401 
104001 


052777 


016702 
005302 
001376 


017701 
012700 
020001 
001401 
104001 
017701 
012700 
020001 
001401 
104001 


105767 
100112 
105767 
100163 
052777 


016702 
005302 
001376 


017701 
012700 


020001 
001401 
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171744 


172526 
130002 


172510 
030002 


009004 


171672 


172454 


170006 


172436 


070006 


171655 
171650 
000010 


171604 


172366 
173016 


172470 


172402 
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INITIALIZE THE COMMON TAGS 


MASK1: 


MOV HOLD.R2 ; SET DELAY TIME 
DEC R2 
BNE -2 ;WAIT THIS TIME 
;OK NOW FALL THRU AND CONTINUE TESTING........... 
EXIT STAGE LEFT....CHINNNG! 
MOV ORXCSR.R1 ACTU 
MOV #130002, RO DSC. CTS, CARDET, OTR 
CMP RO.R1 ;EXPECTED VS ACTUAL 
BEQ . +4 
ERROR 1 CHECK BYPASS CONNECTOR 
MOV ORXCSR, R1 + ACTUAL 
MOV #30002, RO ; CTS, CARDET, DTR 
a RO.R1 ;EXPECTED VS ACTUAL 
. +4 
ERROR 1 PREVIOUS READING OF RXCSR SHOULD 
;+HAVE CLEARED DSC 
BIS #RTS. ARXCSR 


;WAIT FOR CABLE DELAYS 

; MAEXXKKKAAAAAAAA AAA AAA AAA AAA AAA AAAS 
;MODIFY “HOLD: " 
j AXXKEAKAAAAA AAA AAA AAA AAA AAA AAA AAT ATS 


MOV 
DEC 
BNE 


HOLD, R2 
R2 
-2 


ACCORDINGLY FOR FASTER OR SLOWER MACHINE 
SET DELAY TIME 
;WAIT THIS TIME 


;OK NOW FALL THRU AND CONTINUE TESTING........... 


*EXIT STAGE LEFT... 


MOV 


MOV 
DEC 
BNE 


ORXCSR,R 
#170006. 
RO, R1 


. +4 
1 


CHINNNG! 
1 


RO ; DSC. RING, CTS, CARDET. RTS, OTR 
EXPECTED VS ACTUAL 


CHECK BYPASS CONNECTOR 


ORXCSR,R1 


#70006, RO 


RO.R1 
. +4 

1 
SEXMIT 
OUT2 


SEREC 
OUT3 


;RING, CTS. CARDET. RTS. OTR 
> EXPECTED VS ACTUAL 


PREVIOUS READING OF RXCSPF SHOULD 
>HAVE CLEARED DSC 
> 1S SEC XMIT JUMPER IN ? 


NO 
> 1S SEC REC JUMPER IN ? 
> NO 


#STD, ARXCSR 

;WAIT FOR CABLE DELAYS 

; MAERAAASARAAAAAAAAA LATA A AAA AAA AA TS 
:MODIFY “HOLD: “ 
; MAEXEAAAAAAA AAA AAA AAA AAA AAAS 


HOLD, R2 
R2 
.°3 


ACCORDINGLY FOR FASTER OR SLOWER MACHINE 
SET DELAY TIME 
;WAIT THIS TIME 


OK NOW FALL THRU AND CONTINUE TESTING... 
EXIT STAGE LEFT. ...CHINNNG! 


MOV 
MOV 


CMP 
BEQ 


ORXCSR, R1 

#173016, R0 + DSC. RING, CTS, CARDET. SRD, OSP 
STO. RTS.DTR 

RO.R1 ; EXPECTED VS ACTUAL 

. +4 


SEQ 0044 
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007334 
007336 
007342 


007346 
007350 
007352 


007354 


007362 
0072366 
007370 


007372 
007376 
007402 
007404 
007496 
007410 


007416 
007422 
007424 


007426 
007432 
0074 36 
007440 
007442 
007444 


007452 
007456 
007460 


007462 
007466 
007472 
007474 
007476 
007500 
007504 
007506 
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104001 
017701 
012700 


020001 
001401 
104001 


042777 


016702 
005302 
001376 


017701 
012700 
C20001 
001401 
104001 
042777 


016702 
005302 
001376 


017701 
012700 
020001 
001401 
104001 
042777 


016702 
005302 
001376 


017701 
012700 
020001 
001401 
104001 
017701 
005000 
005701 


09: 4 


172350 
0730%6 


000002 


171532 


172314 


143014 


000004 


171476 


172260 


103010 


060019 


171442 


172224 


100000 


172206 


172330 


172274 


172240 


ei- _ -77 09:04 PAGE 4 
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47 
INITIALIZE THE COMMON TAGS 


MASK2: 


MASK3: 


ERROR 1  — ; CHECK BYPASS CONNECTOR 


MOV ORXCSR,R1 
MOV #73016,R0 RING, +> CARDET, SRD. DSR, STD 


RTS, D 
CMP RO.R1 EXPECTED VS ACTUAL 
+4 


ERROR 1 ;PREVIOUS READING OF RXCSR SHOULD 
+HAVE CLEARED OSC 

BIC #DTR, ARXCSR 

*+WAIT FOR CABLE DELAYS 

; MAXKKARARAAA AAA AAA AA AAA AAA AA AAA KEY 

;MODIFY “HOLD: " ACCORDINGLY FOR FASTER OR SLOWER MACHINE 

5 MAXXKAKKAAAA EAA AA AAA AAA AAA AAA AAA AAAS 

MOV HOLD.R2 ;SET DELAY TIME 

DEC R2 

BNE 3 *WAIT THIS TIME 

OK NOW FALL THRU AND CONTINUE TESTING........... 

;EXIT STAGE LEFT....CHINNNG! 

MoV ORXCSR.R1 


MOV #143014, R0 ; DSC. RING. S20. OSk, STO. RTS 
CMP RO.R1 ;EXPECTED VS ACTUAL 

BEQ . +4 

ERROR 1 OSC SHOULD BE SET 


BIC RTS, ARXCSR 

;WAIT FOR CABLE DELAYS 
 KAAKKKAAAAAA KARA AAA AAA AAA AAA AAS 

;MODIFY “HOLD: " ACCORDINGLY FOR FASTER OR SLOWER MACHINE 
+ MXXAEKEAEAAAA AAA AAA AAA AAA AAAS 

MOV HOLD.R2 ; SET DELAY TIME 

DEC R2 

BNE 8 ;WAIT THIS TIME 

;OK NOW FALL THRU AND CONTINUE TESTING.......... 

EXIT STAGE LEFT.... CHINNNG! 

MOV ORXCSR,R1 
MOV #103010,R0 + DSC, SRD, OSR, STD 

CMP RO.R1 ;EXPECTED VS ACTUAL 

BEQ . +4 

ERROR 1 ;DSC SHOULD BE SET 

BIC #STD,. ARXCSR 

;WAIT FOR CABLE DELAYS 

j MEKKAAAAAA AAA AAA AREA AAA AAA AREAS 

;MODIFY “HOLD: “ ACCORDINGLY FOR FASTER OR SLOWER MACHINE 
; RAKAAAAAAAAA AAA AAA AAA AAA AAA AAAS 

MoV HOLD,R2 ; SET DELAY TIME 

DEC R2 

BNE 2 ;WAIT THIS TIME 

OK NOW FALL THRU AND CONTINUE TESTING... 

>EXIT STAGE LEFT....CHINNNG! 

MoV ORXCSR,R1 

MOV #100000, RO ? DSC 

CMP RO, R1 ; EXPECTED VS ACTUAL 


Ne 
ERROR DSC SHOULD BE SET 
MOV aRXCSR, R1 
CLR RO > NONE 
TST Ri 
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2240 
2241 
2242 
2243 
2244 


007510 
007512 


007514 


007520 


007526 
007532 
007534 


007536 
007542 
007546 
007550 
007552 
007554 


007562 
007566 
007570 


007572 
007576 


007602 
007604 
007606 
007610 


007616 
007622 
007624 


007626 
007632 
007636 
007640 
007642 
007644 
007650 
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001401 
104001 


000167 


052777 


016702 
O00£302 
001376 


017701 
012700 
020001 
001401 
104001 
042777 


016702 
005302 
001376 


017701 
012700 


020001 
001401 
104001 
042777 


016792 
005302 
001376 


017701 
012700 
020001 
001401 
104001 
000167 
052777 


09 


000254 


000010 


171366 


172150 


070016 


000004 


171332 


172114 
130012 


000002 


171276 


172060 


100010 


000124 
000010 


21-SEP-77 09:0 
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H 
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BEQ . +4 

ERROR 1 ;0SC SHOULD BE CLEARED FROM PREVIOUS 
READING OF RXCSR 

JMP OUT1 + JUMP AROUND 


*THE FOLLOWING ROUTINE HANDLES THE SITUATION WHERE SEC XMIT 
>AND SEC REC JUMPERS ARE NOT ON 


172164 OUT2: 


172130 


172074 


172034 OUTS: 


BIS #STD. ARXCSR 

;WAIT FOR CABLE DELAYS 

+ MAAXKAKAAAAA AAA AAA AAA AAA AAA AAA AAA AAAS 

;MODIFY “HOLD: " ACCORDINGLY FOR FASTER OR SLOWER MACHINE 
; MXXKKAEAA AAA AAA EAA AAA AAA AAA AAA ATS 

MOV eer ss +SET DELAY TIME 


BNE .°8 ;WAIT THIS TIME 
OK NOW FALL THRU AND CONTINUE TESTING....... 
;EXIT STAGE LEFT....CHINNNG! 


MOV ARXCSR,R1 ; ACTUAL 

MOV #70016, RO ; EXPECTED: RING .CTS.CARDET.STO.RTS.DTR 
CMP RO.R1 ; EXPECTED VS ACTUAL 

BE . +4 

ERROR 1 ;CHECK SEC XMIT & SEC REC JUMPERS 


BIC RTS, ARXCSR 

;WAIT FOR CABLE DELAYS 

> MEKAKAAAAKAAA AAA AAA AAA AAA AAA AAA AAAS 

;MODIFY “HOLD: " ACCORDINGLY FOR FASTER OR SLOWER MACHINE 
; MAAK AAAAAAEAA AAA AAA AAA AAA AEE 

MOV HOLD.R2 ; SET DELAY TIME 

DEC R2 

BNE “- +WAIT THIS TIME 

>OK NOW FALL THRU AND CONTINUE TESTING......... 

EXIT STAGE LEFT... . CHINNNG! 


MOV ORXCSR,R1 + ACTUAL 

MOV #130012.R0 + OSC, CTS. CARDET. OTP. STO 

>NOTE THAT DSC STILL ASSERTS EVEN THO THE SEC XMIT JUMPER # 6 IS NOT ON 
CMP RO.Ri ;EXPECTED VS ACTUAL 

BEQ . +4 

ERROR 1 CHECK BYPASS CONNECTOR 


BIC #OTR, ARXCSR 

;WAIT FOR CABLE DELAYS 

; MERAAAAAAAAAARAAA AAA AAA AAA AT AAA TTS 

;MODIFY “HOLD: " ACCORDINGLY FOR FASTER OF SLOWER MACHINE 
> MRAAAAAAATA SATA AAA AAA AAA AAA AAA ATT 

MoV HOLD.R2 ; SET DELAY TIME 

DEC R2 

BNE _°8 ;WAIT THIS TIME 

>OK NOW FALL THRU AND CONTINUE TESTING . 

EXIT STAGE LEFT.... CHINNNG! 


MOV ORXCSR.R1 ; ACTUAL 

MoV #100010, RO ; OSC, STC 

CMP RO.R1 ;EXPECTED VS ACTLAL 

BEQ +4 

ERROR 1 ;ONLY OSC & STD SHOULD BE SET 


JMP OUT1 + JUMP AROUND 

BIS #STD, ARXCSR 

;WAIT FOR CABLE DELAYS 

me $$$ 92992955055 3935500555535350002005 8) 


SEQ 0046 


1 4 ~gaet <8. 1 
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2296 *MODIFY “HOLD: " ACCORDINGLY FOR FASTER OR SLOWER MACHINE | 
2297 + MAXKKKAAAAAA AAAS AAA AAA AAA AAA AAA ATES 
2298 007656 016702 171236 MOV HOLD.R2 ;SET DELAY TIME 
2299 007662 005302 DEC R2 
2300 007664 001376 BNE .-e ;WAIT THIS TIME 
2301 *OK NOW FALL THRU AND CONTINUE TESTING........... 

2302 EXIT STAGE LEFT....CHINNNG! 

2303 007666 017701 172020 MOV ORXCSR, R1 > ACTUA i 
2304 007672 012700 171016 MOV #171016,.R0 EXPECTED: DSC, RING, CTS. CARDET. DSR, STD. RTS, OTR 
2305 007676 020001 CMP RO.Ri ;EXPECTED VS ACTUAL 

2306 007700 001401 BEQ . +4 

2307 007702 104001 ERROR 1. CHECK SEC REC JUMPER 

2308 007704 042777 000004 172000 Bic #RTS, ARXCSR 

2309 ;WAIT FOR CABLE DELAYS 

2310 j AAKAKAAAAA AAA AAA AAA AAA AAA AA AAA AAA AS 

2311 >MODIFY “HOLD: " ACCORDINGLY FOR FASTER OR SLOWER MACHINE 
2312 ; MAAXKKAAAAAA AAA AA AAA AAA AAA AAA AAAS 

2313 007712 016702 171202 MOV HOLD. R2 ; SET DELAY TIME 

2314 007716 005302 CEC R2 

2315 007720 O01376 BNE 7B ;WAIT THIS TIME 

2316 ;OK NOW FALL THRU AND CONTINUE TESTING...... et s ° 
2317 EXIT STAGE LEFT.... CHINNNG! : 

2318 007722 017701 171764 MoV ORXCSR,R1 * ACTUAL 

2319 007726 012700 131012 MOV #131012, R0 sEXPECTED: DSC,CTS, CARDET, DSR, STD. OTR 
2320 007732 020001 CMP RO.R1 ;EXPECTED VS ACTUAL 

2321 007734 001401 BEQ . +4 

2322 007736 104001 ERROR 1 +CHECK H315 CONNECTOR 

2323 007740 042777 OOO002 171744 BIC #OTR, ARXCSR 

2324 ;WAIT FOR CABLE DELAYS 

2325 ; AAXAKKAAAAAA AAA AAA AAA AAA AAA AAA AEA 

2326 ;MODIFY "HOLD: " ACCORDINGLY FOR FASTER OR SLOWER MACHINE 
2327 ; MAXKKAAAAAAA AERA AAA AAA A 

2328 007746 016702 171146 MOV HOLD.R2 ; SET DELAY TIME 

2329 007752 005302 DEC R2 

2330 007754 001376 BNE od ;WAIT THIS TIME 

2331 >OK NOW FALL THRU AND CONTINUE TESTING ........ 

2332 EXIT STAGE LEFT....CHINNNG! 

2333 007756 017701 171730 Mov ORXCSR,R1 + ACTUAL 

2334 007762 012700 101019 MOV #101010,R0 EXPECTED: DSC. OSR. STD 

2335 007766 020001 CMP RO.R1 ;EXPECTED VS ACTUAL 

2336 007770 001401 BEQ +4 

2337 007772 104001 ERROR 1 CHECK H315 CONNECTOR 

2338 007774 OUT1: 

2339 

2340 :; THIS TEST VERIFYS THAT RECACT (REC ACTIVE) ASSERTS 

2341 +; 1MMED. WHEN SYNC EXTERNAL MODE IS SELECTED 

2342 7;AND SYNC SEARCH IS SET 

2343 ie 

2344 > ORRAAAAAAAA AAA AAA AAA AAA AAA AAA AAA TAA E ASAE 
2345 007774 000004 TSTS2: SCOPE 

2346 007776 052777 OOO4O0 171722 BIS #MRESET, @TXCSR ; MASTER RESET 

2347 010004 012777 020000 171710 MOV @SYNEXT, @PARCSR >; SET THE MODE 

2348 010012 052777 O00400 171706 BIS @MRESET.dTXCSR ; MASTER RESET 

2349 

2350 ;SET MAINT DATA, CLK. BREAK. BMAINTENANCE MODE 


2351 010020 012777 064001 171700 MOV #MTDATA'CLK'MINT! BREAK. dTXCSR 
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010026 
010034 
010042 
010044 
010046 
010054 
010062 
010064 
010066 
010074 
010102 
010104 


010106 
010110 
010116 
010124 


010132 


010140 
010146 
010154 
010156 
010160 
010166 
010174 
010176 
010200 
010206 
010214 
010216 
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012777 
032777 
001401 
104004 
052777 
032777 
001001 
104004 
042777 
032777 
001401 
104004 


CO0004 
052777 
012777 
052777 


012777 


012777 
032777 
001401 
104004 
052777 
032777 
001001 
104004 
042777 
032777 
001401 
104004 


09: 4 


026026 
004000 


000020 
004000 


000020 
004000 


000400 
000000 
000400 


064uU01 


006026 
004000 


000020 
004 000 


000020 
004000 


171666 
171650 


171636 
171630 


171616 
171610 


171610 
171576 
171574 


171566 


171554 
171536 


171524 
171516 


171504 
171476 


J 4 
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+ SET J OF BITS,PARITY SENSE, &LOAD SYNC REG 


#SYNEXT!E IGHT! NOPAR ! 26, aPARCSR 
BIT —_— » ORXCSR 
+ 


ERROR 4 ;RECACT SHOULD NOT BE SET 
BIS @SYNSCH, ARXCSR ;SET SYNC SEARCH 

BIT #RECACT. ARXCSR 

BNE . +4 

ERROR 4 ;RECACT DID NOT ASSERT 
BIC @SYNSCH, ARXCSR ;DROP SEARCH SYNC 

BIT #RECACT. ARXCSR ;IS IT = 

BEQ . +4 

ERROR 4 ;RECACT SHOULD BE 0 


;; THIS TEST VERIFYS THAT RECACT (REC ACTIVE) ASSERTS 
+; IMMED. WHEN ISOCRONOUS MODE IS SELECTED 
++AND SYNC SEARCH IS SET 


PETIT titi ttttttitttttt tet ttt ttttttttittsttttstt setts sett title 
SCOPE 


BIS #MRESET.@TXCSR ;MASTER RESET 
MOV #ISYMOD. @PARCSR ; SET THE MODE 
BIS RMRESET.@TXCSR ;MASTER RESET 


> SET wag DATA. CLK, BREAK, &MAINTENANCE MODE 


#MTDATA!ICLK! MINT! BREAK, dTXCSR 


;SET MODE .# OF BITS.PARITY SENSE.&LOAD SYNC REG 


MoV # |SYMOD!E 1GHT!NOPAR ! 26, dPARCSR 
BIT #RECACT, ARXCSR 
BEQ -* 
ERROR 4 ;RECACT SHOULD NOT BE SET 
BIS RSYNSCH. ARXCSR ;SET SYNC SEARCH 
BIT RRECACT, ARXCSR 


BNE +4 

ERROR y ;RECACT DID NOT ASSERT 
BIC #SYNSCH, ARXCSR ;DROP SEARCH SYNC 

BIT #RECACT. ARXCSR ; IS IT =0? 

BEQ +4 

ERROR 4 ;RECACT SHOULD BE 0 


;; VERIFY THE MATCH DETECT & DATA RDY FLAGS BY PUMPING 
;;1N THO & SYNC CHARS THRU MAINT DATA BIT 

>;WATCH THE RECACT BIT 

;;0N THE THIRD ¥ CHARACTER 1T SHOULD SET RXDONE 
32%: DEPENDENT ON MONITOR............. 

7; 1F ONE SYNC STRAP 1S SELECTED THEN IT WILL ONLY 
3; TAKE ONE SYNC CHARACTER FOR RADONE TO ASSERT 
+;0N THE SECOND CHARACTER 

;;ALSO CHECK THIS CHARACTER IN RXDBUF 

;;AND CHECK OPERATION OF SYNSCH 

;;MODE: SYNC INTERNAL 

>; LENGTH: FIVE 


PETTITT Tet t ttt tttittitiitiitittittititititti ti tiet 


SEQ 0048 





K 4 
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2408 010220 O00004 TST54: SCOPE 

2409 010222 052777 OOO400 171476 BIS WMRESET.QTXCSR ; MASTER RESET 

2410 010230 012777 O30000 171464 MOV #SYNINT, @PARCSR ; SET THE MODE 

mae 010236 052777 OOO400 171462 BIS @MRESET,@TXCSR ; MASTER RESET 

2413 +SET MAINT DATA. CLK, BREAK, BMAINTENANCE MODE 

he 010244 012777 O64001 171454 MOV #MTOATA!ICLK! MINT! BREAK, ATXCSR 

2416 SET MODE .# OF BITS,PARITY SENSE.&LOAD SYNC REG 

2417 010252 012777 030025 171442 MOV #SYNINT!F IVE !NOPAR ! 26, APARCSR 

2418 010260 016703 171432 MOV RXDBUF.R3 +SET UP FOR ERROR MESSAGE 

2419 010264 052777 000020 171420 BIS #SYNSCH, ARXCSR ; SET SYNC SEARCH 

2420 /POKE CLK TO GET RECEIVER INTO SYNCROIZATION.... 

2421 010272 042777 020000 171426 +H #CLK, ATXCSR +POKE CLK DOWN 

2422 010300 052777 020000 171420 #CLK, dTXCSR +POKE CLK UP 

2423 + POKE cu TO GET LOGIC INTO SYNCRONIZATION 

2424 010306 042777 O20000 171412 #CLK. ATXCSR +>POKE CLK DOWN 

2425 010314 052777 020000 171404 BIS #CLK, ATXCSR +POKE CLK UP 

2426 010322 012767 O00002 170574 MoV #2, COUNT 

2427 010330 012767 O00005 170564 15%: MOV #5, SHIFT ;# OF SHIFTS 

2428 010336 ©12767 000026 171134 MoV #26. STMP1 +SYNC CHARACTER 

2429 010344 004767 006552 JSR PC, RPOKE 

2430 010350 005367 170550 DEC COUNT 

2431 010354 001403 BEQ 

2432 ; TEST SYNCNO TO SEE HOW MANY SYNC CHARS WERE SELECTED 

2433 010356 105767 17C564 

2434 010362 100762 BNi 1$ + TWO SYNC CHARS 

2435 010364 105777 171322 2$: TSTB O@RXCSR ; CHECK REC DONE BIT 

2436 010370 100001 BPL . +4 

2437 010372 104004 ERROR 4 +RXDONE SHOULD NOT BE ASSERTED 

2438 010374 032777 OOKOOO 171310 BIT #RECACT, ARXCSR 

2439 010402 001001 BNE . +4 

2440 010404 104004 ERROR 4 ;RECACT SHOULD BE ASSERTED 

2441 010406 012767 GO0005 170506 MOV #5, SHIFT 

2442 010414 012767 000021 171056 MOV #21, STMP1 *ANY CHARACTER 

2443 010422 004767 006474 JSR PC, RPOKE 

2444 010426 105777 171260 TSTB ORXCSR ; CHECK RXDONE 

2445 010432 100401 BMI . +4 

2446 010434 104004 ERROR 4 +RXDONE SHOULD BE ASSERTED 

2447 010436 032777 OO4000 171246 BIT #RECACT, ARXCSR 

2448 010444 001001 BNE . +4 

2449 010446 104004 ERROR 4 +RECACT SHOULD STILL BE ASSERTED 

2450 010450 042777 000020 171234 BIC #SYNSCH. ARXCSR ;CLR SYNC SEARCH 

2451 010456 032777 OO4000 171226 BIT #RECACT. @RXCSR + 1T SHOULD DROP IMMEDIATELY 

2452 010464 001401 BEQ . +4 

2453 010466 104004 ERROR 4 ;RECACT SHOULD BE CLR 

2454 010470 105777 171216 TSTB @RXCSR =; RXDONE 

2455 010474 100401 BMI . +4 

2456 010476 104004 ERROR 4 +RXDONE SHOULD STILL BE ASSERTED 

2457 010500 012700 000021 MOV #21,RO ;EXPECTED DATA 

2458 010504 017701 171206 MoV ORXOBUF, R1 ACTUAL DATA 

2459 010510 020001 CMP RO.Ri ;COMPARE EXP VS ACT 

2460 010512 001401 BEQ +4 

2461 010514 104002 ERROR 2 DATA CHARS SHOULD COMPARE 

2462 010516 105777 171170 TSTB ORXCSR +; CHECK RXDONE 

2463 010522 100001 BPL +4 
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2464 
2465 
2466 
2467 
2468 
2469 
2470 
2471 
2472 
2473 
2474 
2475 
2476 
2477 
2478 
2479 
2480 
2481 
2482 
2483 


010524 


010526 
010530 
010536 
010544 


010552 


010560 
010566 
010572 


010600 
010606 


010614 


010742 


L 4 


ai- + ta 77 09:04 PAGE 52 
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104004 


000004 


052777 


012777 


012777 
016703 
052777 


042777 
052777 


042777 
052777 
012767 
012767 
012767 
004767 
005367 
001403 


105767 


100401 
104004 


000400 
030000 
000400 


064001 


032U26 
171124 
000020 


020000 
020000 


020000 


170242 


170256 
171014 


004000 


000006 
000021 
006166 
170752 


171170 
171156 
171154 


171146 


170626 


171002 


170206 
170550 


INITIALIZE THE COMMON TAGS 


ERROR 4 +RXDONE SHOULD BE CLR FROM 
_ + PREVIOUS READING OF RXDBUF 


+; VERIFY THE MATCH DETECT & DATA RDY FLAGS BY PUMPING 
++ 1N TWO % SYNC CHARS THRU MAINT DATA BIT 

+;WATCH THE RECACT BIT 

++0N THE THIRD & CHARACTER IT SHOULD SET RXDONE 
++%: DEPENDENT ON MONITOR............. 

7+ 1F ONE SYNC STRAP IS SELECTED THEN IT WILL ONLY 
++ TAKE ONE SYNC CHARACTER FOR RXDONE TO ASSERT 
++0N THE SECOND CHARACTER 

++ALSO CHECK THIS CHARACTER IN RXDBUF 

++AND CHECK OPERATION OF SYNSCH 

+-MODE: SYNC INTERNAL 

++ LENGTH: SIX 


METiittitttttiitttttttttttttttttttttttttttttrttttttts ttt ttt tts ts: 
SCOPE 


TSTSS: 


BIS #MRESET, 2TXCSR ;MASTER RESET 
MOV RSYNINT. @PARCSR ; SET THE MODE 
Bis @MRESET, dTXCSR ;MASTER RESET 


» SET sone DATA. CLK, BREAK. MAINTENANCE MODE 
MOV 


#MTOATA!CLK! MINT! BREAK, aTXCSR 


SET MODE .# OF BITS,PARITY SENSE, &LOAD SYNC REG 


MoV @SYNINT!SIX!NOPAR ! 26. @PARCSR 
MoV RXDBUF, R3 + SET UP FOR ERROR MESSAGE 
BIS @SYNSCH. ARXCSR ;SET SYNC SEARCH 
;POKE CLK TO GET RECEIVER INTO SYNCROIZATION.... 
BIC #CLK, @TXCSR ;POKE CLK DOWN 

CLK, dTXCSP ;POKE CLK UP 


BIS 
-POKE CLK TO GET LOGIC INTO SYNCRONIZATION 
BIC 


2S: 


#CLK, aTXCSR ;POKE CLK DOWN 
BIS #CLK. @TXCSR ;POKE CLK UP 
MOV #2, COUNT 
MOV #6. SHIFT ;# OF SHIFTS 
Mov #26, STMP1 ;SYNC CHARACTER 
JSR PC, RPOKE 
DEC CQUNT 
BEQ 23 
; TEST a * by SEE HOW MANY SYNC CHARS WERE SELECTED 
TSTB YN 
BMI 1$ ; TWO SYNC CHARS 
rsve aRXCSR > CHECK, REC DONE BIT 
BPL +4 
ERROR 4 ;RXDONE SHOULD NOT BE ASSERTED 
BIT RRECACT. dRXCSR 
BNE +4 
ERROR 4 ;RECACT SHOULD BE ASSERTED 
MoV #6. SHIFT 


MOV #21, STMPE + ANY CHARACTER 
JSR PC, RPOKE 
TSTB @RXCSR = CHECK RXDONE 

ay 


ERROR 4 ;RXDONE SHOULD BE ASSERTED 


SEQ 0050 


—— 


ee 
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019744 
010752 
010754 
010756 
010764 
010772 
010774 
010776 
011002 
011004 
011006 
011012 
011016 
011020 
011022 
011024 
011630 
011032 


011034 
011036 
011044 
011052 


011060 


011066 
011074 
011100 


011106 
011114 


011122 
011130 
011136 
011144 
011152 
011160 
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032777 
001001 
104004 
042777 
032777 
001401 
104004 
105777 
100401 
104004 
012700 
017701 
020001 
001401 
104002 
105777 
100001 
104004 


000004 
052777 
012777 
052777 


012777 


012777 
016703 
052777 


042777 
052777 


042777 
052777 
012767 
012767 
012767 
004767 


21-SEP-77 09:04 PA 
09. 47 


004000 


000020 
004000 


170710 


000021 
170700 


170662 


000400 
030000 
000400 


964001 


034026 
170616 
000020 


00 
005736 


170740 


170726 
170720 


170662 
170650 
170646 


170640 


170626 
170604 


170612 
170604 


170576 
170570 
167760 
167750 
170320 


BIT #RECACT. ORXCSR 
+4 


ERROR 4 ;RECACT SHOULD STILL BE ASSERTED 
BIC #SYNSCH, ARXCSR ;CLR SYNC SEARCH 
BIT #RECACT, ARXCSR = 1T SHOULD DROP IMMEDIATELY 


BEQ . +4 
ERROR 4 ;RECAC’ SHOULD BE CLR 
TSTB @RXCSR ;RXDONE 
BMI . +4 
ERROR 4 ;RXDONE SHOULD STILL BE ASSERTED 
MoV #21,RO <;EXPECTED DATA 
MOV ORXDBUF.R1 ;ACTUAL DATA 
CMP RO, R1 > COMPARE EXP VS ACT 
BEQ . +4 
ERROR F 4 ;DATA CHARS SHOULD COMPARE 
i by —_—s > CHECK RXDONE 
L 
ERROR ;RXDONE SHOULD BE CLR FROM 


+ PREVIOUS READING OF RXDBUF 


+; VERIFY THE MATCH DETECT & DATA RDY FLAGS BY PUMPING 
>; IN THO * SYNC CHARS THRU MAINT DATA BIT 
;;WATCH THE RECACT BIT 
;;0N THE THIRD & CHARACTER IT SHOULD SET RXDONE 
:;%:- DEPENDENT ON MONITOR............. 
37 1F ONE SYNC STRAP IS SELECTED THEN IT WILL ONLY 
+; TAKE ONE SYNC CHARACTER FOR RXDONE TO ASSERT 
;;0N THE SECOND CHARACTER 
;;ALSO CHECK THIS CHARACTER IN RXCBLIF 
;;AND CHECK OPERATION OF SYNSCH 
tere? SYNC INTERNAL 

+ LENGTH: SEVEN 


BTR 
TST56. SCOPE 
BIS @MRESET,QTXCSR ;MASTER RESET 
MoV #SYNINT, OPARCSR ; SET THE MODE 
BIS @MRESET.@TXCSR ; MASTER RESET 


;SET MAINT DATA. CLK, BREAK. MAINTENANCE MODE 
MoV #MTDATA!CLK! MINT! BREAK, dTXCSR 


>SET MODE .# OF BITS.PARITY SENSE. &LOAD SYNC — 
MoV #SYNINT!SEVEN'NOPAR ! 26. @PARCSR 
MOV RXDBUF , R3 T UP FOR ERROR MESSAGE 
BIS #SYNSCH, ARXCSR ; SET SYNC SEARCH 
;POKE CLK TO GET RECEIVER INTO SYNCROIZATION... 
Bic #CLK. aTXCSR ;POKE CLK DOWN 
BIS #CLK, aTXCSR +POKE CLK UP 
;POKE CLK TO GET LOGIC INTO SYNCRONIZATION 
BIC #CLK. ATXCSR +POKE CLK DOWN 
BIS @CLK. ATXCSR :;POKE CLK UP 
MOV #2. COUNT 
1$: MOV #7, SHIFT :# OF SHIFTS 
MOV #26, STMP1 SYNC CHARACTER 
JSR PC, RPOKE 


: np gS eS 
GE 53 | 
INITIALIZE THE COMMON TAGS SEQ 0051 


| 


DZDUQ-B MACY11 30(1046) 
DZDUGB. M11 


011164 
011170 


011172 
011176 
011200 
011204 
011206 
011210 
011216 
011220 
011222 
011230 
011236 
011242 
011246 
011250 
011252 
011260 
011262 
011264 
011272 
011300 
011302 
011304 
011310 
011312 
011314 
011320 
011324 
011326 
011330 
011332 
011336 
011340 


011342 
011344 
011352 
011360 


31-MAY-77 09:4 


005367 
001403 


105767 


100001 
104004 


000004 
052777 
012777 
052777 


167734 


167750 
170506 


004000 


900097 
009921 
005660 
170444 


004000 


000020 
004000 


170402 


000021 
170372 


170354 


000400 
030000 
000400 


Se piled 09: 


170474 


167672 


170242 


170432 


176420 
170412 


170354 
170342 
170340 


N 4 
O04 PAGE 54 
INITIALIZE THE COMMON TAGS 


DEC COUNT 
EQ 


B 
+ TEST SYNCNO TO SEE HOW MANY SYNC CHARS WERE SELECTED 
TSTB SYNCNO 


BM! 1$ 
2s: TSTB —- 
+ 


4 
BIT nen 
+ 


4 
MOV #7, SHIFT 
MOV #21, STMP1 
JSR PC, RPOKE 
ORXCSR 

. +4 


y 
BIT #RECRCT, ARXCSR 
+4 


4 
Bic #SYNSCH, ORXCSR 
BIT #RECACT, ARXCSR 


BEQ . +4 

ERROR y 

TSTB @RXCSR ; RXDONE 
BNI . +4 

ERROR 4 

MoV #21,R0 

MoV AOR XDOBUF,.R1 

CMP RO. R1 

BEQ +4 

ERROR 2 

TSTB ARXCSR 

BPL +4 

ERROR + RXDONE 


+ TWO SYNC CHARS 
+ CHECK REC DONE BIT 


+RXDONE SHOULD NOT BE ASSERTED 


+RECACT SHOULD BE ASSERTED 
ANY CHARACTER 


+ CHECK RXDONE 


+ RXDONE SHOULD BE ASSERTED 


+RECACT SHOULD STILL BE ASSERTED 
*CLR SYNC SEARCH 
+ 1T SHOULD DROP IMMEDIATELY 


. #RECACT SHOULD BE CLR 


+RXDONE SHOULD STILL BE ASSERTED 


+ EXPECTED DATA 


ACTUAL DATA 


+ COMPARE EXP VS ACT 


DATA CHARS SHOULD COMPARE 
+ CHECK RXDONE 


SHOULD BE CLR FROM 


"PREVIOUS READING OF RXDBUF 


:;VERIFY THE MATCH DETECT & DATA RDY FLAGS BY PUMPING 
+7 1N THO & SYNC CHARS THRU MAINT DATA BIT 


+;WATCH THE RECACT BIT 


+70N THE THIRD & CHARACTER IT SHOULD SET RXDONE 
+;%: DEPENDENT ON MONITOR............. 

++ 1F ONE SYNC STRAP 1S SELECTED THEN IT WILL ONLY 
+, TAKE ONE SYNC CHARACTER FOR RXDONE TO ASSERT 
>;0N THE SECOND CHARACTER 

+2ALSO CHECK THIS CHARACTER IN RXDBUF 

+-AND CHECK OPERATION OF SYNSCH 


+;MODE: SYNC INTERNAL 
++ LENGTH: EIGHT 


MEtittsittsttsrtrtrtsttttttsttstttt ttt ttt TTT TTT TTT TT TTT TTT TTT TTT 


SCOPE 
BIS #MRESET, ATXCSR 


TST57?: 


+MASTER RESET 


MoV @SYNINT, OPARCSR ;SET THE MODE 


BIS #MRESET. dTXCSR 


+MASTER RESET 


SEQ 0052 


DZ20UQ-B8 MACY11 30(104%6) 


DZ2DUGB. Mil 


011366 


011374 
011402 
011406 


011414 
011422 


011430 
011436 
011444 
011452 
011460 
011466 
011472 
011476 


011500 
011504 
011506 
011512 
011514 
011516 
011524 
011526 
011530 
011536 
011544 
011550 
011554 
011556 
011560 
011566 
011570 
011572 
011600 
011606 
011610 
011612 
011616 
011620 
011622 
011626 
011632 
011634 
011636 
011640 
011644 
011646 


012777 


012777 
016703 
052777 


042777 
052777 


042777 
052777 
012767 
012767 
012767 
004767 
005367 
001403 


105767 
100762 
105777 
100001 
104004 
032777 
001001 
104004 
012767 
012767 
004767 
105777 
100401 
104004 
032777 
001001 
104004 
042777 
032777 
001401 
104004 
105777 
100491 
104004 
012700 
017701 
020001 
001401 
104002 
105777 
100001 
104004 


21-SEP-77 09:04 PAGE 55 
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064001 


036026 
170310 
000020 


020000 
020009 


020000 
020000 
000002 
000010 
000026 
005430 
167426 


167442 
170200 


004000 


000010 
000021 
005352 
170136 


004000 


000020 
004000 


170074 


000021 
170064 


170046 


170332 


170320 
170276 


170304 
170276 


170276 
170262 
167452 
167442 
170012 


170166 


167364 


167734 


170124 


170112 
170104 


INITIALIZE THE COMMON TAGS 


;SET MAINT DATA, CLK, BREAK, BMAINTENANCE MODE 
MOV #MTDATA!CLK!MINT!BREAK, ATXCSR 


;SET MODE .# OF BITS, PARITY SENSE. &LOAD SYNC REG 
MOV #SYNINT!E IGHT!NOPAR ! 26, OPARCSR 
MOV RXDBUF. R3 +SET UP FOR ERROR MESSAGE 
BIS #SYNSCH, ORXCSR ;SET SYNC SEARC 
;POKE CLK TO GET RECEIVER INTO ay ete 
BIC #CLK, ATXCSR +POKE CLK DOWN 
BIS #CLK, @TXCSR ;POKE CLK UP 
+POKE CLK TO GET LOGIC INTO SYNCRONIZATION 
BIC #CLK, aTXCSR +POKE CLK DOWN 
BIS #CLK, ATXCSR +POKE CLK UP 


MoV #2, COUNT 
1$: MoV #8., SHIFT ;# OF SHIFTS 
MOV #26, STMP1 ; SYNC CHARACTER 
JSR PC, RPOKE 
DEC COUNT 
BEQ 23 
; TEST SYNCNO TO SEE HOW MANY SYNC CHARS WERE SELECTED 
TSTB SYNCNO 
BMI 1$ ; TWO SYNC CHARS 
25: hg @RXCSR ;CHECK REC DONE BIT 
L ly 
ERROR 4 ;RXDONE SHOULD NOT BE ASSERTED 
BIT #RECACT, ARXCSR 
BNE +4 
ERROR 4 ;RECACT SHOULD BE ASSERTED 
MOV #8. ,SHIFT 
MoV #21, STMP1 > ANY CHARACTER 
JSR PC, RPOKE 
TSTB ORXCSR ;CRECK RXDONE 
BNI +4 
ERROR uy ;RXDONE SHOULD BE ASSERTED 
BIT #RECACT. ARXCSR 
BNE . +4 
ERROR u ;RECACT SHOULD STILL BE ASSERTED 
BIC @SYNSCH, ARXCSR ;CLR SYNC SEARCH 
BIT #RECACT. ARXCSR ;1T SHOULD DROP IMMEDIATELY 
BEG . +4 
ERROR 4 ;RECACT SHOULD BE CLR 
TSTB ARXCSR ;RXDONE 
BMI +4 
ERROR 4 ;RXDONE SHOULD STILL BE ASSERTED 
MOV #21,R0 ;EXPECTED DATA 
MOV ORXOBUF,R1 : ACTUAL DATA 
CMP RO.R1 >; COMPARE EXP VS ACT 
BEQ . +4 
ERROR 2 ; DATA CHARS SHOULD COMPARE 
TSTB @RXCSR ; CHECK RXDONE 
BPL i 
ERROR ;RXDONE SHOULD BE CLR FROM 


7 PREVIOUS READING OF RXDBUF 


3; THIS TEST VERIFYS WORD LENGTH SELECT OF THE 
;; RECEIVER SECTION. IT USES THE ERROR FLAGS 


SEQ 0053 


DZ20UQ-B MACY11 30(104%6) 


DZDUGB. M11 


011650 
011652 
611660 
0116t6 


011674 


011702 
011710 


011716 
011724 


011732 
011740 
011746 
011752 
011756 
011764 
011772 
011776 
012002 
012004 
012006 
012012 
012014 
012016 


012020 
012026 
012034 


012040 
012046 
012054 
012060 


012064 
012070 
012072 
012074 


31-MAY-77 


oco004 
052777 
012777 
052777 


012777 


012777 
052777 


042777 
052777 


042777 
052777 
016703 
012700 
012767 
012767 
004767 
105777 
100401 
104004 
017701 
020001 
001401 
104002 


012767 
012767 
004767 


012767 
012767 
004767 
012700 


017701 
020001 
001401 
104002 


c 65 
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09: 4 


000400 
000009 
000400 


06400% 


oc0000 
000020 


020000 
020000 


020000 
020000 
167744 
00c025 
000u07 
000152 
005124 
167710 


167704 


000007 
000152 
005062 


000007 
000152 
005042 
140025 


167626 


170046 
170034 
170032 


170024 
170012 


167774 


170002 
167774 


167766 
167760 


167136 
167506 


167074 
167444 


167054 
167424 


INITIALIZE THE COMMON TAGS 


+; TO DETERMINE — IT WAS SELECTED CORRECTLY 
++ COVRRUN, RXERR 

+; MODE: ISYMOD 

;; LENGTH: FIVE 

++ CHAR: 25 


;: SESMANEEAAESSUAESSNESSRNESSAESEAESOUAES ATE DAT EDA ETS 
"BIS MMRESET.@TXCSR ;MASTER RESET 
MOV #ISYMOD, OPARCSR ; SET THE MODE 
BIS #MRESET,@TXCSR ; MASTER RESET 


+SET MAINT DATA, CLK, BREAK, BMAINTENANCE MODE 
MOV RMTOATAICLK! MINT! BREAK, aTXCSR 


SET MODE .# OF BITS,PARITY SENSE.&LOAD SYNC REG 


MoV # |ISYMOD!F IVE 'NOPAR!0, dPARCSR 
BIS #SYNSCH. ARXCSR ;SET SYNC SEARCH 
;POKE CLK TO GET RECEIVER INTO SYNCROIZATION... 
BIC #CLK, ATXCSR ;POKE CLK DOWN 
Bis #CLK, ATXCSR ;POKE CLK UP 
;POKE CLK TO GET LOGIC INTO SYNCRONIZATION 
BIC #CLK, ATXCSR ;POKE CLK > 
BIS #CLK, ATXCSR ;POKE CLK 
MoV RXOBUF,R3 ;SET UP Fon, ERROR MESSAGE 
MoV #25,RO ;EXPECTED 
MOV #7, SHIFT ;# OF SHIFTS 
MoV #152, STMP1 ;DATA CHAR 
JSR PC, RPOKE ; SHIFT IN THIS CHAR 
TSTB @RXCSR ;RXDONE ? 
BMI . +4 
ERROR 4 ae ne A BE SET 
MoV ORXDBUF,R + ACTU 
fo RO,R1 COMPARE EXPECTED VS. ACTUAL 
BEQ . +4 
ERROR 2 ;RECEIVED DATA DID NOT MATCH 
; EXPECTED DATA - CHECK MAINT DATA 
;OR RECEIVER LOGIC 
MOV #7, SHIFT ;# OF SHIFTS 
MOV #152, STMP1 ;DATA CHAR 
JSR PC, RPOKE ;SHIFT IN THIS CHAR 
;NOW SHIFT IN A SECOND CHARACTER py + READING RXDBUF 
MoV #7, SHIFT # OF SHIFTS 
MOV #152, STMP1 ‘DATA CHAR 


JSR PC, RPOKE +SHIFT IN THIS CHAR 
MOV #140000!25.R0 ;EXPECTED DATA PLUS 
*>RXERR & OVRRUN 


MOV ORXOBUF,R1 ; ACTUAL 

CMP RO. R1 ;COMPARE EXP VS. ACT 

BEQ +4 

ERROR 2 >; SPECIFICALLY LOOK AT RXERR & 


+ OVRRUN BITS... THEY BOTH SHOULD BE SET 


7; THIS TEST VERIFYS WORD LENGTH SELECT OF THE 
;;RECEIVER SECTION. IT USES THE ERROR FLAGS 
;;TO DETERMINE THAT IT WAS SELECTED CORRECTLY 


SEQ 0054 


DZDUGB. M11 


2750 012076 
2751 012100 
2752 012106 
2753 012114 


2756 012122 


2759 012130 
2760 012136 


2762 012144 
2763 012152 


2765 012160 
2766 012166 
2767 4012174 
2768 012200 
2769 012204 
2770 012212 
2771 012220 
2772 012224 
2773 012230 
2774 012232 
2775 012234 
2776 012240 
2777 012242 
2778 012244 


2781 012246 
2782 012254 
2783 012262 


2785 012266 
2786 012274 
2787 012302 
2788 012306 


2790 012312 
2791 012316 
2792 012320 
012322 


DZ2DUQ-B MACY11 30(104%6) 
31-MAY-77 


000004 
052777 
012777 
052777 


012777 


012777 
052777 


042777 
052777 


042777 
052777 
016703 
012700 
012767 
012767 
004767 
105777 
100401 
104004 
017701 
020001 
001401 
104002 


012767 
012767 
004767 


012767 
012767 
004767 
012700 


017701 
020001 
001401 
104002 


21- , -77 09:04 PAGE 


09: 4 


000400 
000000 
000409 


064001 


000000 
000020 


020000 
020000 


020000 
020000 
167516 
000012 
000007 
000124 
004676 
167462 


167456 


000007 
000124 
004634 


000007 
000124 
004614 
140012 


167400 






167620 
167606 
167604 


167576 
167564 


167546 


167554 
167546 


167540 
167532 


166710 
167260 


166646 
167216 


166626 
167176 


0 5 
































INITIALIZE THE COMMON TAGS 


SEQ 0055 
++ COVRRUN, RXERR) 
+; MODE: ISYMOD 
>; LENGTH: FIVE 
+; CHAR: 12 
j: SESUNNEESAAESESUAESSSUNESSUNESEOAAESERAASEOATE DAT EEAT ENTE 


TST61: 
BIS #MRESET, @TXCSR ;MASTER RESET 
MOV #ISYMNOD, APARCSR ; SET THE MODE 
BIS RMRESET,@TXCSR ;MASTER RESET 


;SET MAINT DATA, CLK, BREAK, &MAINTENANCE MODE 
MOV #MTDATAICLK! MINT! BREAK, dTXCSR 


SET MODE .# OF BITS,PARITY SENSE,&LOAD SYNC REG 
MOV # I SYMOD!F 1 VE !NOPAR !0, APARCSR 
BIS RSYNSCH, ARXCSR ;SET SYNC SEARCH 
;POKE CLK TO GET RECEIVER INTO SYNCROIZATION. .. 
BIC #CLK, ATXCSR +POKE CLK DOWN 
BIS #CLK, @TXCSR +POKE CLK UP 
>POKE CLK TO GET LOGIC INTO SYNCRONIZATION 
BIC #CLK, OTXCSR + POKE ste an 


BIS #CLK, ATXCSR *POKE CLK 

MOV RXDBUF, R3 ; SET UP FOR ERROR MESSAGE 
MOV #12,RO ;EXPECTED 

MoV #7, SHIFT 7# OF SHIFTS 

MoV #124, STMP1 ; DATA CHAR 

TSTB O@RXCSR ;RXDONE ? 

BNi +4 

ERROR 4 ;RXDONE SHOULD BE SET 

MOV ORXOBUF, R1 + ACTUAL 

CMP RO.R1 ;COMPARE EXPECTED VS. ACTUAL 
BEQ +4 

ERROR 2 ;RECEIVED DATA DID NOT MATCH 


>EXPECTED DATA - CHECK MAINT DATA 
7OR RECEIVER LOGIC 


MOV #7, SHIFT ;# OF SHIFTS 

MoV #124, STMP1 DATA CHAR 

JSR PC, RPOKE >SHIFT IN THIS CHAR 
>NOW SHIFT IN A SECOND — WITHOUT READING RXDBUF 

MOV #7, SHIF 7# OF SHIFTS 

MOV #124, $THP 1 DATA CHAR 

JSR PC, RPOKE +SHIFT IN THIS CHAR 


MOV #140000!12,RO0 -;EXPECTED DATA PLUS 
+e 3 OVRRUN 


MoV ar XOBUF,R1 ACTUA 

CMP RO, R1 ; COMPARE. EXP UE. ACT 

BEQ +4 

ERROR 2 >SPECIF ICALLY LOOK AT RXERR & 


;OVRRUN BITS... THEY BOTH SHOULD BE SET 


;END OF PASS 


JSR PC, RPOKE ; SHIFT IN THIS CHAR 
; TYPE NAME OF TEST 


ee ees 


DZDUQ-B MACY11 30(104%6) 


DZ0UGB. M11 


012324 
012326 
012332 
012334 
012336 
012342 
012346 
012352 
012354 
012360 
012362 
012366 
012372 


012374 
012400 
012406 
012414 
012416 
012422 


012424 
012432 
012434 
012440 
012444 


012452 
012460 
012466 
012472 
012474 
012502 
012506 
012514 
012522 
012530 
012536 
012544 
012552 
012560 
012566 


012570 
012572 
012574 


012576 
012576 
012602 
012606 
012612 


31-MAY-7 


000004 
004767 
104401 
015462 
104413 
104401 
105767 
001511 
00&767 
001007 
104401 
016700 
000000 


000167 
062767 
062767 
000241 
006167 
103410 


036767 
001762 
004767 
000167 
012767 


016767 
016767 
004767 
000441 
016767 
004767 
016767 
062767 
016767 
062767 
016767 
062767 
016767 
016767 
000207 


000001 
006 
001712 


005067 
005067 
005067 
005267 


000340 


012570 
015301 
166600 


166606 


015313 
166574 


167552 
000010 
000010 


166546 


16€540 


000034 
000210 
000001 


166500 
166500 
000002 


166454 
004260 
166450 
000002 
166434 
000002 
166420 
000002 
166404 
167152 


002 


166600 
166610 
166571 
166274 


21-SEP-77 09:0 
7 09: 47 


166546 
166546 


166534 


166516 


166474 
166474 


004416 


167222 
166440 
167210 
166424 
167176 
166410 
167164 
166374 
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INITIALIZE THE COMMON TAGS 


. EOP: 


RUNIT: 
ZERO: 


2S: 


REPLAY: 


OUTCRY: 


ccc: 


; UPDATE 


: 3 


PASS COUNT 


*CHECK FOR EXIT TO ACT-11 
RESTART TEST 


SCOPE 
JSR 


HALT 


PC, CKSWR 


, OUTCRY 


-vts 
» MCOW ; NO 
ACTREG, RO 


; TYPE NAME OF TEST 


ARE YOU RUNNING MULTIPLE DEVICES ? 
+NO, JUMP AROUND 
ARE ANY DEVICES ACTIVE ? 


+DISPLAY ACTREG 


;SELECT SOMETHING TO RUN @ ACTREG 
SWITCHES & HIT CONTINUE (PUT SWOO =1) 


_ START 
#10, BASEADD 
#10, BASE IV 


ROTADD 


;+START OVER AGAIN...... YOU DESELECTED EVEPYTHING 


+NEXT BLOCK (ADDRESSES) 
+NEXT BLOCK (VECTORS) 


;UP DATE ROTATING POINTER 


23 1S \T THE LAST DEVICE 
+TO BE TESTED IN THIS PASS ? 


ROTADD. ACTREG 
;1F NOT ACTIVE, 


RUNIT 
PC, REPLAY 
RESTRT 
#1,ROTADD 


; TEST THIS DEVICE FOR ACTIVE STATUS 
TRY NEXT ADDRESS 
;CALCULATE NEW PARAMETERS 


+YES 1T WAS ACTIVE. TEST THIS DEVICE 


OK!,NOW SET UP ROTATING 


*POINTER FOR NEXT MULTIPLE PASS 
KEEPADD. BASEADD ; RESTORE BASE ADDRESS 


KEEP IV. BASE IV 


PC, REPLAY 


+RESTORE BASE INTERRUPT VECTORS 
;CALC NEW PARAMETERS 


ccc ; JUMP AROUND REPLAY 


BASEADD. DUBASE 


PC, DUADOR 
BASE IV, DURIV 
#2, BASE IV 
BASE IV, DURIS 
#2, BASE IV 
BASE IV. DUTIV 
#2, BASE IV 
BASE IV. DUTIS 
Sn Pe oe Fe 
i 


6,2 


STSTNM 
SERRPC 
SERFLG 
PASCNT 


+SET UP FOR NEW ADDRESSES 
CREATE NEW ADDRESSES 
CREATE DURIV 


CREATE DURIS 
+ CREATE DUTIV 


*CREATE DUTIS 
> RESTORE 


;CLEAR TEST NUMBER 
*CLEAR LAST ERROR PC 
*CLEAR ERROR FLAG 
UPDATE PASS COUNT 


SEQ 0056 


DZDUQ-B MACY11 pty || 


31-MAY- 
016767 


DZDUGB. M11 


012616 
012624 
012632 
012636 
012640 
012642 
012644 
012646 
012650 
012652 
012654 
012654 
012662 
012666 


000240 


012767 
004767 
000167 


012672 
012676 
012700 
012706 
012710 
012714 
012716 
012724 
012732 
012740 
012742 
012746 
012752 
012756 
012760 
012762 
012766 
012770 
012772 
012774 
012776 
013000 
013004 
013006 
013010 
013012 
013014 


013016 


005737 
001040 
022767 
001034 
105777 
100031 
017767 
042767 
122767 
001017 


000176 
000005 


004767 
032777 
001402 
016716 
000002 


013020 
013024 
013032 
013034 
013040 


09: 
166270 


166262 
000042 


003376 
000004 
170416 


000042 
000176 
166530 
16€524 
17700 
000007 
016067 


013006 
016077 


016110 


001 
013006 


002 


177646 
001000 


166050 


166256 
166702 


166524 


16€532 


000422 
000414 
000406 


166406 


21- + ad 77 09:04 PAGE 
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59 
INITIALIZE THE COMMON TAGS 


SENDAD: 


RESTRT: 


CKSWR: 


CNTLU: 


_ BYTE 
OUT: 


ROSH: 


SWREGL: 


. SCOP 1: 


1$: 


MoV PASCNT, LIGHTS ;DISPLAY PASS COUNT 
MOV PASCNT, SPASS +PASS COUNT TO APT 
MOV O42, R1 ; CHECK FOR ACT-11 OR DOP 
BEQ RESTRT ;1F NO CONTINUE TESTING 
RESET 

RESET 

JSR PC, (R1) 

NOP 

NOP 

NOP 

MOV tg A LOAD LAST ADDR 

JSR PC, CKSWR 

JMP . BEGIN 


CHECK SWITCH REGISTER ROUTINE 
CHECKS TO ALLOW FOR < G> TO ALLOW 
>THE CHANGING OF LOCATION 176 


TST O#42 

BNE OUT 

CMP #SWREG, SWR SOF TWAPE SWR PRESENT? 
BNE OUT ;NO--LEAVE 
TSTB aS$TKS > CHECK TTY READY 
BPL OUT ;NO--LEAVE 

MOV aSTKB.. MSG GET CHARACTER 
BIC #177600, . MSG >STRIP JUNK 
CMPB #7,.MSG ,18 17 < @ ? 
BNE OUT ;NO 

TYPE MCNTG 

COM d#ROSW 

TYPE , MMSWR 

CONVRT 

SWREGL 

INSTR, MMNEW 

PARAN 

177777 

SWREG 

0,1 

CLR ae RDSW 

RTS PC 

.WORD O 

1 

BYTE 6,2 

SWREG 

5 


CHECK FOR FREEZE ON CURRENT DAT 


JSR PC, CKSWR 
BIT #SWO9, ASWR 
BEQ 1$ 

MOV LOCK, (SP) 
RTI 


SEQ 0057 
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D2DUGB. M11 31-MAY-77 09:4 TYPE ROUTINE SEQ 0058 
4 .SBTTL TYPE ROUTINE 
2914 +s RXRAAAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA TATE 
2915 ;¥ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
2916 +ATHE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
2917 + ¥NOTE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
2918 + KNOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
34 —— SFILLC CONTAINS THE CHARACTER TO FILL AFTER 
2921 “ECALL 
2922 aL) USING A TRAP INSTRUCTION 
2923 ;* TYPE , MESADR +;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
2924 + 
292 TYPE 
2926 - MESADR 
2927 :% 
2928 
2929 013042 105767 166411 STYPE: TSTB STPFLG +; 1S THERE A TERMINAL? 
2930 013046 100002 PPL 1$ *7BR IF YES 
2931 013050 000000 HALT +;HALT HERE IF NO TERMINAL 
2932 013052 000430 BR 3$ +, LEAVE 
2933 013054 010046 1S: MOV RO, - (SP) ++ SAVE PO 
2934 013056 017600 000002 MOV d2(SP),RO ++GET ADDRESS OF ASCIZ STRING 
2935 013062 122767 O00001 166456 CMPB RAP TENV, SENV ;+RUNNING IN APT MODE 
2936 013070 001011 BNE 628 ;+NO,GO CHECK FOR APT CONSOLE 
2937 013072 132767 O0C100 166447 BITB #APTSPOOL, SENVM ;; SPOOL MESSAGE TO APT 
2938 013100 001405 BEQ 628 ;+NO,GO CHECK FOR CONSOLE 
2939 013102 010067 000004 MoV RO, 61% +; SETUP MESSAGE ADDRESS FOR APT 
2940 013106 004767 000006' JSR PC, SATY3 +;SPOOL MESSAGE TO APT 
2941 013112 000000 615: .WORD OQ +; MESSAGE ADDRESS 
2942 013114 132767 OO0040 166425 62%: BITB SAPTCSUP,SENVM ;; APT CONSOLE SUPPRESSED 
2943 013122 001003 BNE 608 ++ YES, SKIP TYPE OUT 
2944 013124 112046 2$: MOVB (RO)+,-(SP) +;PUSH CHARACTER TO BE TYPED ONTO STACK 
2945 013126 001005 BNE 4$ +7BR IF IT ISN'T THE TERMINATOR 
2946 013130 005726 TST (SP)+ >; 1F TERMINATOR POP IT OFF THE STACK 
2947 013132 012600 60S: MoV (SP)+,R0 ++RESTORE RO 
2948 013134 062716 000062 38: ADD #2, (SP) >, ADJUST RETURN PC 
2949 013140 000002 RTI ;;RETURN 
2950 013142 122716 000011 4S: CMPB #HT, (SP) +; BRANCH IF <HT> 
2951 013146 001430 BEQ 8$ 
2952 013150 122716 000200 CMPB a@CRLF, (SP) >;BRANCH IF NOT <CRLF> 
2953 013154 001006 BNE 5$ 
2954 013156 005726 TST (SP)+ >;POP <CR><LF> EQuiv 
2955 013160 104401 TYPE +> TYPE A CR AND LF 
2956 013162 001523 SCRLF 
2957 013164 105067 000130 CLRB SCHARCNT >+CLEAR CHARACTER COUNT 
2958 013170 900755 BR 23 +;GET NEXT CHARACTER 
2959 013172 004767 000056 5S: JSR PC, STYPEC >;GO TYPE THIS CHARACTER 
2960 013176 126726 166254 6$ CMPB SFILLC, (SP)+ 77 1S 'T TIME FOR FILLER CHARS. ? 
2961 013202 001350 BNE 2$ +, 1F NO GO GET NEXT CHAR 
2962 013204 016746 166244 MoV SNULL, - (SP) +/GET # OF FILLER CHARS. NEEDED 
2963 +,AND THE NULL CHAR. 
2964 013210 105366 000001 7$: DECB 1¢SP) +; DOES A NULL NEED TO BE TYPED? 
2965 013214 002770 BLT 6$ >+BR IF NO--GO POP THE NULL OFF OF STACK 
2966 013216 004767 000032 JSR PC, STYPEC >;GO TYPE A NULL 
2967 013222 105367 000072 DECB SCHARCNT >;00 NOT COUNT AS A COUNT 





~ 
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2968 
9 


013226 


013230 
013234 
013240 
013246 
013250 
013252 
013254 
013260 
013262 
013270 
013276 
013300 
013304 
013306 
013314 
013316 
013320 
013322 


013324 
013332 
013336 
013342 
013344 
013346 
013350 
013354 
013360 
013364 
013366 
013372 
013376 
013402 
013404 
013410 
013412 
013416 
013420 
013426 
013430 
013432 
013434 
013436 
013440 


013442 
013444 
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000770 


112716 
004767 
132767 
001372 
005726 
000724 
105777 
100375 
116677 
122766 
001003 
105067 
000406 
122766 
001402 
105227 
c00000 
000207 


017667 
062716 
105767 
001036 
104401 
000000 
012704 
012703 
105777 
100375 
117714 
142714 
121427 
001760 
122427 
001413 
105777 
100375 
117777 
005303 
001353 
104401 
015407 
000742 
000002 


011605 
012567 


21-SEP- 


09: 47 


000040 
000014 
000007 


166176 


000002 
000015 


000014 
000012 


00Gu00 
000002 
166204 


016122 
600007 
166060 
166054 
000200 
000025 
000015 
166032 


166022 


000162 


77 «09: 


000052 


166162 
000002 


000002 


no0co14 


166024 


04 


PAGE 61 
TYPE ROUTINE 
BR 


HORIZONTAL TAB 


85: MOVB 
95: JSR 


STYPEC: 


1$: CMPB 


SCHARCNT: . worD 


STYPEX: RTS 


7$ 
PROCESSOR 


#' , (SP) 
PC, $TYPEC 
#7, SCHARCNT 
9$ 


(SP)+ 


23 

aSTPS 
STYPEC 
2(SP), dSTPB 
#CR, 2(SP) 


1$ 
SCHARCNT 
STYPEX 
#LF,.2(SP) 
STYPEX 
(PC)+ 

0 

PC 


++ LOOP 


;;REPLACE TAB WITH SPACE 

+; TYPE A SPACE 

;; BRANCH IF NOT AT 

+; TAB STOP 

;;POP SPACE OFF STACK 

;;GET NEXT CHARACTER 

;;WAIT UNTIL PRINTER IS READY 


++LOAD CHAR TO BE TYPED INTO DATA REG 


++ 1S CHARACTER A CARRIAGE RETURN? 
+;BRANCH IF NO 
Vo CHARACTER COUNT 


EX 
+; 1S CHARACTER A LINE FEED? 
++BRANCH IF YES 
+; COUNT THE CHARACTER 
++ CHARACTER COUNT STORAGE 


-ASCII STRING INPUT ROUTINE 


_ INSTR: MOV 
A 


a(SP),. MSG PICK UP MESSAGE 

#2, (SP) ; JUMP AROUND MESSAGE FOR RTI 
SENV »APT CONTROL 

INSTR2 YES NO TYPE 

# INBUF.R4 *>GET STARTING LOC OF INBUF 
#7,R3 »MAX # OF CHARS 

aSTKS ;TTY FLAG 

1$ 

OSTKB, (RY) > TAKE CHAR 

#200, (R4) > STRIP 

(R4), #25 -IS IT < ® 

_ INSTI 

(R4)+, #15 CHECK FOR CR 

INSTR2 

a$TPS ;TEST FLAG 


2$ 
{Meee aSTPB 


*ECHO CHARACTER 


/DID YOU TYPE TOO MANY CHARS ? 


13 
i 


INSTI 


>RETRY 


>CONVERT ASCII! STRING TO OCTAL 
(SP),R5 ;PUT CONTENTS OF SP INTO RS 


PARAM. MOV 
MoV 


CR5)+,LOLIM 


>PUT LOW LIMIT INTO LOLIM 


SEQ 0059 
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| 
DZ20UGB. M11 31-MAY-77 09:4 TYPE ROUTINE SEQ 0060 | 
3024 013450 012567 000160 MOV (R5)+,HILIM ;PUT HIGH LIMIT INTO HILIM 
3025 013454 012567 000156 MOV (R5)+, DEVADR +PUT STORE LOC INTO DEVADR | 
3026 013460 112567 000154 MOVB (R5)+,L OBITS PUT MASK INTO LOBITS | 
3027 013464 112567 000151 MOVB (R5)+, ADRCNT PUT COUNT INTO ADRCNT 
3028 013470 010516 MOV RS. (SP) ; RESTORE RETURN ADDR ON STACK FOR RTI | 
3029 013472 005005 PARAMI: CLR RS 
3030 613474 012704 016122 MOV # INBUF, RY | 
3031 013500 122714 000015 CMPB #15, (R4) CR ? 
3032 013504 001420 BEQ PARERR ;YOU TYPED CR TOO SOON ! | 
3033 013506 121427 000062 1$: CMPB (R4), #60 ;LOW LIMIT ASCII O 
3034 013512 002415 BLT PARERR 
3035 013514 121427 000067 CMPB (RY), #67 +HIGH LIMIT ASCII 7 
3036 013520 002012 BGT PARERR 
3037 013522 142714 000060 BICB #60, (R4) CONVERT TO OCTAL | 
3038 013526 152405 BiSB (R4)+,R5 s STORE AWAY ITS AN OK CHAR 
3039 013530 122714 0900015 CMPB #15, (R4) CR ? | 
3040 013534 001414 BEQ LIMITS ;NOW CHECK FOR HIGH 8LOW LIMIT CONDS 
3041 013536 006305 ASL RS ;ALLOCATE ROOM FOR NEXT CHAR 
3042 013540 006305 RSL RS 
3043 013542 006305 ASL RS 
3044 013544 000760 BR 1$ 
3045 013546 122714 000015 PARERR: CMPB #15, (RY) >CR? 
3046 013552 001003 BNE 120% 
3047 013554 005737 013006 TST d#ROSH CK SWR USED 
3048 013560 601023 BNE PARTI 
3049 013562 104407 1208: INSTER ; RETRY 
coed 013564 000742 BR PARAM 
1 
3052 TEST TO SEE IF NUMBER IS WITHIN LIMITS 
3053 
3054 013566 020567 000042 LIMITS: CMP RS, HILIM 
3055 013572 101365 BHI PARERR ;THE # IS TOO HIGH 
3056 013574 020567 000032 CMP RS,LOLIM 
3057 013600 103762 BLO PARERR ;THE # IS TOO LOW 
3058 013602 136705 900032 BITB LOBITS. RS TEST BY MASKINGTHE # 
3059 013606 001357 BNE PARERR 
30€.0 
aoe! > STORE NUMBER AT SPECIFIED ADDRESS 
306 
3063 013610 016704 000022 MOV DEVADR, R4 GET STARTING ADOR OF 
3064 013614 010524 1$: MOV RS, (RY)+ STORE AT THIS ADDR 
3065 013616 062705 000002 ADD #2,R5 
3066 013622 105367 000013 DECB ADRCNT ;HOW MANY TIMES + 2 ? 
3067 013626 001372 BNE 1$ 
3068 013630 000002 PARTI: RTI 
3069 013632 000000 LOLIM: QO 
3070 013634 000000 HILIM: 0 
3071 013636 000000 DEVADR: 0 
3072 013640 000000 LOBITS: 0 
3073 013641 RORCNT=LOBITS+1 
3074 
3075 ;SAVE PC OF TEST THAT FRILED AND RO-PS 
3076 
3077 013642 016667 O00004 165256 .SAVOS MOV 4( SP), SAYPC 
3078 


3079 SAVE RO-RS 





J 5 
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DZ0UGB. M11 31-MAY-77 09: 47 TYPE ROUTINE SEQ 0061 
3080 
3081 013650 010567 165620 SvO0s: MOV RS, SREGS 
3082 013654 010467 165612 MOV R4, SREGY 
3083 013660 010367 165604 MOV R3, SREG3 
3084 013664 010267 165576 MOV R2. SREGZ 
3085 013670 010167 165570 MOV Ri, $REG1 
3086 013674 010067 165562 MOV RO, SREGO 
3087 013700 000002 RTI 
3088 
3089 +RESTORE RO-RS 
3090 
3091 013702 016700 165554 .RESOS: MOV SREGO, RO 
3092 013706 01€701 165552 MOV SREG1,R1 
3093 013712 016702 165550 MOV SREGZ,R2 
3094 013716 016703 165546 MOV SREG3,R3 
3095 013722 016704 165544 MOV SREGY, RY 
3096 013726 016705 165542 MOV SREGS. RS 
oss 013732 000002 RTI 
on CONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER 

1 

3101 013734 104401 .CONVR: TYPE 
3102 013736 015413 MCRLF ;CR LF 
3103 013740 017601 000000 MOV O(SP),R1 >PICK UP rn POINTER 
3104 013744 062716 000002 ADD #2,(SP) ;SET UP SP FOR RT 
3105 013750 012167 00C130 MOV (R1)+, KROCNT PICK UP ‘ OF WORDS FROM TABLE 
3106 013754 112167 000126 1S. MOVB (R1)+, CHRCNT ;PICK UP # OF CHARS FROM TABLE 
3107 013760 112167 000123 MOVB (R1)+, SPACNT +PICK UP # OF SPACES FROM TABLE 
3108 013764 013167 000120 MOV @(R1)+,BINWRD ;PICK UP ADDRESS OF MSG 
3109 FROM TABLE 
3110 013770 016704 000114 2$: MOV BINWRD. R4 + SAVE 
3111 013774 116705 000106 MOVB CHRCNT, RS ; SAVE 
3112 014000 012700 016164 MOV aeTEMP. RO STARTING ADDRESS OF TEMP BLOCK 
3113 014004 010403 35: MoV R4Y,R3 + SAVE 
3114 014006 042703 177770 BIC #177770,R3 ;CLR OUT UPPER BITS. SAVE CHAR 
3115 014012 062703 000260 ADD #260,R3 ; CONVERT TO ASCII 
3116 014016 110320 MOVB R3, (RO)+ STORE AWAY 
3117 014020 006204 ASR RY >SHIFT FOR NEXT & 
3118 014022 006204 ASR RY DITTO 
3119 014024 006204 ASR R4 DITTO 
3120 014026 005305 DEC RS DEC CHAR COUNT 
3121 014030 001365 BNE 3$ +00 tT AGAIN ? 
3122 014032 012703 016226 MoV #MDATA, RZ ; STARTING ADDRESS OF MDATA BLOCK 
3123 014036 114023 4$. MOVB ~(RO), (R3)+ ;REVERSE THE ORDER OF NUMBERS 
3124 014040 105367 000042 DECB CHRCNT ;DEC CHAR COUNT 
3125 014044 001374 BNE 4§ >D0 IT AGAIN ? 
3126 014046 105767 000035 TSTB SPACNT ;HOW MANY SPACES ? 
3127 014052 001405 BEQ 6$ > TYPE # IF BR =0 
3128 014054 112723 000240 5S MOVB #240. (R3)+ ;"SPACE’ IN ASCII 
3129 014060 105367 000023 DECB SPACNT ;DEC @ OF SPACE COUNT 
3130 014064 001373 BNE 5$ ;D0 IT AGAIN 
3131 014066 105013 6$: CLRB (R3) > INSERT “O” NFOR TTY OUTPUT ROUTINE 
3132 014070 104401 TYPE 
3133 014072 016226 MDATA ; THIS MESSAGE 
3134 014074 005367 000004 DEC WROCNT ;HOW MANY &'S ? 


3135 014100 001325 BNE 1$ ;DO0 THIS ROUTINE AGAIN IF NOT EQUAL TO O 


— 
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DZDUGB. N11 31-MAY-77 09:47 TYPE ROUTINE SEQ 0062 
3136 014102 000002 RTI RETURN TO PROGRAM 
3137 014104 000000 ater 0 
3138 014106 000000 CHRCNT: O 
3139 014107 SPACNT= CHRCNT+1 
ier 014110 o00000 BINWRD: O 
3142 COMPARE THE FIRST CHARACTER yr THE OB  lhite INPUT 
3143 * BUFFER TO THE CHARACTERS "“N" AND ' 
3144 > 1F THE CHARACTER IS "N" CLEAR THE FLAG 
he 7 IF THE CHARACTER IS “Y" SET THE FLAG 
3147 014112 017605 000000 . SETFLG: MOV O(SP),R5 
3148 014116 122767 000116 001776 CMPB #'N. |NBUF s1S 17 “we 7 
3149 014124 001002 BNE 1$ 
3150 014126 105015 CLRB (R5) , 000 
3151 014130 000406 BR 2$ 
3152 014132 122767 000131 001762 1%: CMPB &'Y, INBUF ste ty 
3153 014140 001005 BNE 3$ 
3154 O14142 112715 177777 MOVB #-1, (RS) +377 
3155 014146 062716 000002 28: ADD #2, (SP) 
3156 014152 Cc00002 RTI 
3157 014154 104407 3: INSTER ; RETRY 
3158 014156 000755 BR . SETFLG 
the .SBTTL ERROR HANDLER ROUTINE 
16 
3161 5p MERKAAAAAAAAA AAA AAA AAA AA AAA AAA AAA AAA AAA AAA AAA TAA AAAS 
3162 ;¥THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT. 
3163 ;¥SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
3164 ;XAND GO TO SAVIT ON ERROR 
3165 ;XTHE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE 
3166 > *SW15=1 HALT ON ERROR 
3167 + kSW13=1 INHIBIT ERPOR TYPEOUTS 
3168 > *SW10=1 BELL ON ERROR 
3169 + kSWO9=1 LOOP ON ERROR 
3170 > *CALL 
3171 ;* ERROR N +; ERROR=EMT AND N=ERROR ITEM NUMBER 
3172 
3173 014160 SERROR: 
3174 014160 105267 165217 7$: INCB SERFLG +;SET THE ERROR FLAG 
3175 014164 001775 BEQ 7$ +;DON'T LET THE FLAG GO TO ZERO 
3176 014166 016777 165210 165246 Mov STSTNM. DDISPLAY >; DISPLAY TEST NUMBER AND ERROR FLAG 
3177, 014174 032777 002000 165236 BIT #81710. dSWR +;BELL ON ERROR? 
3178 014202 001492 BEQ 1$ ++NO - SKIP 
3179 014204 104401 001516 TYPE , SBELL +-RING BELL 
3180 014210 005267 165176 1$: INC SERTTL +;COUNT THE NUMBER OF ERRORS 
3181 014214 011667 165176 MOV (SP), SERRPC +;GET ADDRESS OF ERROR INSTRUCTION 
3182 014220 162767 000002 165170 SUB #2, SERRPC 
3183 014226 117767 165164 165160 MOVB QSERRPC, SITEMB +; STRIP AND SAVE THE ERROR ITEM CODE 
3184 014234 032777 020000 165176 BIT #B1T13,. dSWR +;SKIP TYPEOUT IF SET 
3185 014242 001004 BNE 208 +;SKIP Ti PEOUTS 
3186 014244 004767 000072 JSR PC, SAVIT +;GO TO USER ERROR ROUTINE 
3187 014250 104401 001523 TYPE » SCRLF 
3188 014254 20S: 
3189 014254 122767 000001 165264 CMPB #APTENV, SENV +,RUNNING IN APT MODE 
3190 014262 001007 BNE 2$ ;;7NO,. SKIP APT ERROR REPORT 


3191 014264 116767 165124 000004 MOVB SITEMB, 218 >,SET ITEM NUMBER AS ERROP NUMBER 
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014272 
014276 
014277 
014300 
014302 
014306 
014310 
014312 
014320 
014322 
014326 
014332 
014334 
014340 
014340 
014342 
014346 
014352 
014356 
014362 
014366 
014372 


014400 
014400 
014404 
014406 
014410 
014414 


014416 


014422 
014424 
014426 
014430 
014432 
014434 
014436 
014442 
014446 
014450 
014452 
014454 
014460 
014464 
014466 
014470 
014472 
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004767 
0 


016716 


000002 
010067 
010167 
010267 
010367 
010467 
C10567 
016767 


104401 
010046 
005000 
153700 
001004 


016746 


104402 
000426 


104401 
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++REPORT FATAL ERROR TO APT 


+; APT ERROR LOOP 

;+HALT ON ERROR 

;+SKIP IF CONTINUE 

;;HALT ON ERROR! 

i a ERROR SWITCH SET? 


BR 0 
++FUDGE RETURN FOR LOOPING 
++CHECK FOR AN ESCAPE ADDRESS 
++BR_ IF NONE 
+;FUDGE RETURN ADDRESS FOR ESCAPE 


3 RAKKAAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AES 


(SITEMB) TO DETERMINE WHICH 
FROM THE "ERROR TABLE” (SERRTB). 


;KAND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


lth ha RETURN” & “LINE FEED" 
0 
>7PICKUP THE ITEM INDEX 


>; 1F | TEM NUMBER IS ZERO. JUST 

+; TYPE THE PC OF THE ERROR 

;;SAVE SERRPC FOR TYPEOUT 

+; ERROR ADDRESS 

++ G0 TYPE--OCTAL ASCIICALL DIGITS) 
;GET OUT 

:: ADJUST THE INDEX SO THAT IT WILL 

We WORK FOR THE ERROR TABLE 


;;FORM TABLE POINTER 

+;PICKUP “ERROR MESSAGE” POINTER 
+-SKIP TYPEQUT IF NO POINTER 

+; TYPE THE “ERROR MESSAGE” 

+: "ERROR MESSAGE” POINTER GOES HERE 
+2 "CARRIAGE RETURN” & “LINE FEED" 
+-PICKUP “DATA HEADER” POINTER 
+zSKIP TYPEOUT IF O 

+; TYPE THE "DATA HEADER” 

+; "DATA HEADER" POINTER GOES HERE 


09:4 ERROR HANDLER ROUTINE 
000016' JSR PC, SATY4 
215: .BYTE O 
. BYTE 0 
223: BR 228 
165132 23: TST éSWR 
BPL 3$ 
HAL T 
001000 165120 3%: BIT #81 T09. dSWR 
BEQ Qh 
165062 MoV SLPERR, (SP) 
165162 4S: TST SESCAPE 
BEQ 53 
165154 - MOV SESCAPE, (SP) 
RTI ;;RETURN 
164562 SAVIT: MOV RO. HLDO 
164560 MOV R1,HLD1 
164556 MOV R2, HLDZ 
164554 MoV R3,HLD3 
164552 MoV R4, HLD4 
164550 MoV RS, HLDS 
165004 164544 MOV STSTNM. HLD6 
_SBTTL ERROR MESSAGE TYPEOUT ROUTINE 
;XTHIS ROUTINE USES THE “ITEM CONTROL BYTE” 
;XERROR IS TO BE REPORTED. IT THEN OBTAINS, 
SERRTYP: 
001523 TYPE , SCRLF 
MoV RO. -(SP) >; SAVE 
CLR RO 
001414 BISB a#$1TEMB,RO 
BNE 1% 
164774 MOV SERRPC, -(SP) 
TYPOC 
BR 6$ 
1$ DEC RO 
ASL RO 
ASL RO 
ASL RO 
001652 ADD #SERRTB,RO 
000004 MOV (RO)+, 2% 
BEQ 3$ 
TYPE 
23 . WORD 0 
001523 TYPE , SCRLF 
ocoo04 3S: MOV (RO)+,45 
BEQ 5% 
TYPE 
4S. WORD QO 
001523 TYPE , OCRLF 


72 "CARRIAGE RETURN" & “LINE FEED" 


SEQ 0063 





014476 
014500 
014502 
014504 
614510 
014512 
014512 
014514 
014516 
014520 
014522 
014526 
014530 


014534 


014632 
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011000 
001004 
012600 
104401 
000207 


013046 
104402 
005710 
001770 
104401 
000771 
020040 
014534 


017646 
116667 
112667 
062716 
000406 
112767 
112767 


016605 


Zi- ” -77 09:04 PAGE 6 
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31-MAY-77 09:4 


001523 


014530 
000 


000000 
000001 
000207 
000002 


000001 
000006 
000005 


000145 


000006 
000122 
000125 
006012 


900211 


000171 
000165 
000154 


53: MoV (RO),RO 
BNE 7$ 

6$: MOV (SP)+,RO 
TYPE , SCRLF 
RTS PC 

73: 
MOV O(RO)+,-(SP) 
TYPOC 
TST (RO) 
BEQ 6$ 
TYPE , 8$ 
BR 7$ 

83: -ASCIZ 7 7 


. EVEN 
.SBTTL BINARY TO OCTAL (ASCII) 


++PICKUP “DATA TABLE” POINTER 
++GO TYPE THE DATA 

++ RESTORE RO 

i+ "CARRIAGE RETURN" & “LINE FEED” 
++ RETURN 


+;SAVE 2(RO)+ FOR TYPEOUT 

+;GO TYPE--OCTAL ASCII(ALL DIGITS) 
++ 1S THERE ANOTHER NUMBER? 

+>BR IF NO 

++ TYPE TWO(2) SPACES 


LOOP 
S TWOC2) SPACES 
AND TYPE 


5s RAEXAAAAAAAAAAA AAA AAA AAA AAA KAA AAA A AAA AAA AAA AAA AAA AAA AAAS 


**THIS ROUTINE 


1S USED TO CHANGE A i6-BIT BINARY NUMBER TO A 6-DIGIT 
>KOCTAL (ASCII) NUMBER AND TYPE 


\T. 
; XSTYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


; XCALL: 

;x MOV 
;x TYPOS 
3x . BYTE 
;* _ BYTE 
x 

x 

x 


NUM, - (SP) 


;;NUMBEP TO BE TYPED 
;;CALL FOR TYPEOUT 
;;N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
,2Mz1 OR O 
:;1=TYPE LEADING ZEROS 
;;0=SUPPRESS LEADING ZEROS 


; ¥STYPON----ENTER HERE TO TYPE OUT WITH THE SAMe PARAMETERS AS THE LAST 
; XSTYPIS OR STYPOC 


> XCALL: 

ok MOV 

x TYPON 

x 

7x 

ik 

7x MOV 

;x TYPOC 

STYPOS: MOV 
MOVB 
MOVB 
ADD 


BR 
STYPOC: MOVB 

MOVB 
STYPON: MOVB 

MOV 


NUM, - (SP) 


NUM, - (SP) 


O(SP),- (SP) 
1(SP), SOF ILL 
(SP )+, SOMODE +1 
#2, (SP) 

STYPON 

#1, $0F ILL 

#6, SOMODE +1 


SOMODE +1, R4 
R4 


#6,R4 

R4Y, SOMODE 
SOF ILL. R4 
12(SP),R5 


;;NUMBER TO BE TYPED 
;;CALL FOR TYPEOUT 


STYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
CALL: 


+;NUMBER TO BE TYPED 
+;CALL FOR TYPEOUT 


+;PICKUP THE MODE 

+;LOAD ZERO FILL SWITCH 
+;NUMBER OF DIGITS TO TYPE 
+,ADJUST RETURN ADDRESS 


;;SET THE ZERO FILL SWITCH 

;;SET FOR SIX(6) DIGITS 

;;SET THE ITERATION COUNT 

>; SAVE R3 

+; SAVE PY 

7; SAVE RS 

+;GET THE NUMBER OF DIGITS TO TYPE 


;; SUBTRACT IT FOR MAX. ALLOWED 
;;SAVE IT FOR USE 

;:GET THE ZERO FILL SWITCH 
;;PICKUP THE INPUT NUMBER 


SEQ 0064 


a PS aay a 


DZ0UQ-B MACY11 30(104%6) 
D2DUGB. M11 
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014636 
014640 
014642 
014644 
014646 
014650 
014652 
014654 
014656 
014662 
014664 
014670 
014672 
014674 
014676 
014700 
014704 
014710 
014714 
014720 
014724 
014726 
014730 
014732 
014734 
014736 
014740 
014742 
014750 
014752 
014754 
014755 
014756 
014757 
014760 


014762 
014762 
014764 
014766 
014770 
014772 
014774 
014776 
015002 
015006 
015014 
015016 


015020 
015024 
015026 





005003 


010046 
010146 
010246 


000777 


016706 
012605 
012604 





000076 
177770 


000060 
000040 
000040 
014754 
000032 


000002 u0004 


163022 
164110 
015020 163010 


164072 


21- op 20 09:04 PAGE 
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67 
BINARY TO OCTAL (ASCII) AND TYPE 


1$: 
23: 


33: 


6S: 


83: 
SOCNT: 


SOF ILL: 
SOMODE: 


SPWRON: 
.PFAIL: 


RESTAR: 





CLR R3 ++ CLEAR THE OUTPUT WORD 
ROL RS ++ROTATE MSB INTO "C" 
BR 3$ +:GO DO MSB 

ROL RS ++FORM THIS DIGIT 

ROL R5 

ROL RS 

MOV R5,R3 

ROL R3 ++GET LSB OF THIS DIGIT 
DECB SOMODE +; TYPE THIS DIGIT? 

BPL 7$ +7BR IF NO 

BIC #177770,R3 +;GET RID OF JUNK 

BNE u% ++ TEST FOR O 

TST RY +; SUPPRESS THIS 0? 

BEQ 54 ;;BR IF YES 

INC RY ++ DON'T SUPPRESS ANYMORE O'S 


++MAKE THIS DIGIT ASCII 
+;MAKE ASCII IF NOT ALREADY 


MOVB R3, 85 +;SAVE FOR TYPING 

TYPE ,8$ +:GO TYPE THIS DIGIT 

DECB SOCNT +; COUNT BY 1 

BGT 23 +-BR IF MORE TO DO 

BLT 6$ ;3BR IF DONE 

INC PY ++ INSURE LAST DIGIT ISN'T A BLANK 
BR 23 ++GO DO THE LAST DIGIT 

MOV (SP)+,R5 >;RESTORE RS 

MOV (SP)+,R4 ;RESTORE RY 

MOV (SP)+,R3 >RESTORE R3 

MoV 2(SP),4(SP) ++SET THE STACK FOR RETURNING 
MOV (SP )+, (SP) 

RTI +; RETURN 

. BYTE 0 ++ STORAGE FOR ASCII DIGIT 

. BYTE 0 +2 TERMINATOR FOR TYPE ROUTINE 
. BYTE 0 +-OCTAL DIGIT COUNTER 

_ BYTE 0 ++ZERO FILL SWITCH 


WORD OQ +;NUMBER OF DIGITS TO TYPE 
ZENTER HERE ON POWER FAILURE 


MOV RO, -(SP) >SAVYE RO-R5S ON PROCESSOR STACK 
MOV R1,-(SP) 

MoV R2,-(SP) 

MOV R3,-(SP) 

MOV R4, - (SP) 

MOV R5, - (SP) 

MoV 24.-(SP) 

MOV SP. SAVSP +SAVE STACK POINTER 

MoV #RESTART. 24 *SET UP FOR POWER UP TRAP 

HALT >HALT ON POWER DOWN NORMAL 


PROCESSOR WILL TRAP HERE WHEN POWER IS RESTORED 
MOV SAVSP, SP RESTORE STACK POINTER 


MOV (SP)+,R5 *RESTORE RO-RS 
MOV (SP)+, R4 








Se 


SEQ 0065 







DZ0UGB. M11 


3360 015030 
3361 015032 
3362 015034 
3363 015036 
3364 015040 
3365 015046 
3366 015052 
3367 015056 
3368 015062 
3369 015066 
3370 015070 
3371 015072 
3372 015074 
3373 015076 
3374 015100 
3375 015104 
3376 015110 
3377 015114 
3378 015116 
3379 015120 
3380 015122 
3381 015130 
3382 015136 
3383 015144 
3384 015152 
3385 015155 
3386 015162 
3387 015170 
3388 015176 
3389 015204 
3390 015212 
3391 015220 
3392 015226 
3393 015234 
3394 015242 
3395 015247 
3396 015254 
3397 015262 
3398 015270 
3399 015276 
3400 015301 
3401 015306 
3402 015313 
3403 015320 
3404 015326 
3405 015334 
3406 015342 
3407 015343 
3408 015350 
3409 015356 
3410 015364 
3411 015372 
3412 015400 
3413 015406 
3414 015407 
015413 


























































DZ2DUQ-B MACY11 30(104%6) 
31-MAY-77 


012603 
012602 
012601 
012600 
012767 





09 


014762 
000340 
001100 
001102 
001076 


164277 
164306 
163770 


002 
042012 


051124 


047412 
051072 
020105 
042040 
041530 
042104 


037440 
000012 


21-SEP-77 09:0 
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162756 


053125 
042132 
052040 
020101 


041505 
000055 
020124 


042104 


044526 

000 
046105 
047524 
040040 
043505 


043126 
052105 
040514 
053105 
051123 
026523 


000 


4 PAGE 68 
BINARY TO OCTAL 


PF TAB: 


MTITLE: . 


MVECTO: . 
MREGAD: . 


MMUL T: 


MLASTD: 


DEVICE: 


MCOW: 


MRANGE: 


MQM: 
MCRLF: 


- ASCIZ 


. ASCIZ 


. ASCIZ 
- ASCIZ 


. ASCIZ 


_ASCIZ 
.ASCIZ 


B 6 
(ASCII) AND TYPE 


(SP)+,R3 
(SP)+,R2 
(SP)+,R1 
(SP)+,R0 
#. PFAIL, 24 


#340 
a@STACK, SP 
TEMP 

TEMP 

74 


SERFLG 
SERRPC 
ORETURN 


6,2 


SET UP FOR POWER FAILURE 


€15><12><12>7DUV11 DZ2DUQ-B TAPE A 7<15><12> 


€15><12>/VEC ADD-7 


<15><12>71ST DEV: REC CSR ADD-/ 


<15><12>7MULT DEV ? (Y OR N)-7 


€15><12>/LAST DEV: REC CSR ADDR-/ 


7=DEVICE 7 


<15><12>7SELECT TO RUN @ACTREG/ 


<15><12>/0VFLO. RETYPE LAST DEV RXCSR ADDS-/ 


2/ 
€15><12> 









SEQ 0066 
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DZ20UGB. M11 


015416 


016077 


21-SEP-77 09: 
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043120 
020040 
051101 


044501 


000 
053523 


026114 
3 


042520 


000 
051505 
000055 
045503 
052040 
024040 
047040 


047440 
041516 
051522 
041505 
020050 
031040 


020123 
046530 
044527 
032505 
047111 
047440 
000055 
051440 
041505 
041524 
026465 
020077 
020122 


047440 


047040 
043536 
036522 


O04 PAGE 69 
BINARY TO OCTAL 
MPFAIL: . ASCIZ 
MEPASS: . ASCI2Z 
NR: ASCIZ 
MTSTPC: . ASCIZ 
MLOCK: .ASCIZ 
MSYNC: .ASCIZ 
MWIRE6: ASCIZ 
MWIRES: . ASCIZ 
MWIREY: . ASCIZ 
MEXTJ: .ASCIZ 
MCNTG =. ASCIZ 
MMSHR: . ASCIZ 


C 6 
(ASCII) AND TYPE 
7PFAIL, RESTART AT TEST IN PROGRESS/ 


€15><12>/7END OF PASS TAPE A/ 


€15><12>7R7 
€15><12>/TEST PC-/ 


<15><12>7LOCK ON TEST? (Y OR N)-7 


<15>412>78% OF SYNC CHARS SELECTED ( 1 OP 2)-/ 


<15><12>71S SEC XMIT SWITCH E55-2 IN? (Y OR N)-7 


<15><12>71S SEC REC SWITCH E55-3 IN? (Y OR N)-7 


€15><12>/71S OPT CLR ENABLE SWITCH E55-1 IN? (Y OR N)-7 


€15>412><12>7H315 CONNECTOR ON ?(Y OR N)-/ 


«1541297 G 7 
7 SWR= / 


SEQ 0067 
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3472 
3473 
3474 
3475 
3476 
3477 
3478 
3479 
3480 
3481 
3482 
3483 
3484 
3485 
3486 
3487 
34838 
3489 
3490 
3491 
3492 
3493 


416104 
016110 
016116 


016122 
016164 
016226 


016270 


016270 
016270 
016274 
016300 
016304 


016306 
016314 
016316 
016324 
016326 
016332 
016334 
016342 
016350 


016352 


016354 
016360 
016366 
016372 
016376 
016400 
016402 


31-NAY-77 


020040 
020040 
020075 


000000 
016164 
000000 
016226 
000000 
01€270 


004767 
005067 
022716 
001422 


032777 
001412 
016767 
000406 
105777 
100123 
017766 
032777 
001114 


000416 


013746 
012737 
005737 
012637 
000463 
022626 
012637 


09 


000040 
047040 
000040 


174376 
163116 
003376 
040000 
163060 
163112 


163106 
040000 


000004 
016400 
177060 
000004 


000004 


21-SEP-77 09:0 
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053505 


163124 
163062 


177776 
163070 


000004 


D 6 
4 PAGE 70 
BINARY TO OCTAL (ASCII) AND TYPE 


MMNEW: .ASCIZ 7 NEWS 7 
. EVEN 
*+BUFFERS FOR INPUT-OUTPUT 


INBUF: 0 
_ =. +40 


MOATA: 0 
=, +40 
“SBTTL SCOPE HANDLER ROUTINE ‘ 


55 RAAKKKKAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AEE 
;XTHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
;XAND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7: O>) 
*XAND LORD THE ERROR FLAG (SERFLG) INTO DISPLAY<15: 08> 

+ XTHE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 


7; kSW14=1 LOOP ON TEST 

;*SW11=1 INHIBIT ITERATIONS 

; ¥SWO9=1 LOOP ON ERROR 

> ¥SWO8=1 LOOP ON TEST IN SWR<7: OD 
> XCALL 

;x SCOPE >; SCOPE=10T 
SSCOPE: 


>SCOPE LOOP AND INTERATION HANDLER 


. SCOPE: 
JSR PC. CKSWR 
CLR SERRPC + CLEAR LAST ERROR PC 
CMP #TST1+2, (SP) > 1S SCOPE AT BEGINING OF TEST 1? 
BEQ SXTSTR + YES NO LOOP 
TTST: BiT #B1T14, dSWR + THIS CODE 1S FOR TESTING FOR BIT 14% 
BEQ 1$ -ON LS! WHICH SYSMAC CANNOT HANDLE 
MOV STSTNM. SLPADR 
BR 1$ 
TSTB aSTKS KEYBOARD DONE? 
BPL SOVER BR IF NO 
MoV OSTKB, -2(SP) *CLEAR DONE BIT 
1$: BIT #BIT14, dSWR +;LOOP ON PRESENT TEST? 


SOVER ++YES IF SW14=1 
;RRRRRSTART OF CODE FOR THE XOR TESTERS#&RE 
SXTSTR: BR 6$ +; 1F RUNNING ON THE “XOR" TESTER CHANGE 
+; THIS INSTRUCTION TO A “NOP” (NOP=240) 
MoV ORERRVEC,-(SP) +; SAVE TRE CONTENTS OF THE ERROR VECTOR 
MOV #54, QRERRVEC +;SET FOR TIMEOUT 


TST 0#177060 ++ TIME OUT ON XOR? 
MOV (SP)+,@8ERRVEC ;; RESTORE THE ERROR VECTOR 
BR S$SVLAD +;GO TO THE NEXT TEST 
5S: CMP (SP)+, (SP)+ +;CLEAR THE STACK AFTER A TIME OUT 
MOV (SP)+,Q#ERRVEC ;; RESTORE THE ERROR VECTOR 


SEQ 0068 


DZ2DUQ-B MACY11 30(1046) 21-SEP-77 09:04 PAGE 71 
DZDUGB. N11 31-MAY-77 09: 47 SCOPE HANDLER ROUTINE SEQ 0069 
3528 016406 000423 BR 7$ i+LOOP ON THE PRESENT TEST 
3529 016410 6%: ;#ARAREND OF CODE FOR THE XOR TESTERA#HRE 
3530 016410 032777 OOO400 163022 BIT #8 1TO8, ASWR ++LOOP ON SPEC. TEST? 
3531 016416 001404 BEQ 23 ++BR IF NO 
3532 016420 127767 163014 162754 CMPB OSWR, STSTNM +,0N THE RIGHT TEST? SWR<7: O> 
3533 016426 001465 BEQ SOVER ie IF YES 
3534 016430 105767 162747 23: TSTB SERFLG ++HAS AN ERROR OCCURRED? 
3535 016434 001421 BEQ 3$ +7BR iF NO 
3536 016436 126767 162753 162737 CMPB SERMAX,SERFLG ;;MAX. ERRORS FOR THIS TEST OCCURRED? 
3537 016444 101015 BHI 3$ iG IF NO 
3538 016446 032777 001000 162764 BIT #81T09, dSWR ++LOOP ON ERROR? 
3539 016454 001404 BEQ 4§ +7BR_ IF NO 
3540 016456 016767 162726 162722 7%: MOV SLPERR,SLPADR ;;SET LOOP ADDRESS TO LAST SCOPE 
3541 016464 000446 BR SOVER 
3542 016466 105067 162711 4S: CLRB SERFLG ++ ZERO THE ERROR FLAG 
3543 016472 005067 163014 CLR STIMES ++CLEAR THE NUMBER OF ITERATIONS TO MAKE 
3544 016476 000415 BR 1$ ++ESCAPE TO THE NEXT TEST 
3545 016500 032777 OO4000 162732 3%: BIT #B1T11, OSWR +; INHIBIT ITERATIONS? 
3546 016506 001011 BNE 1$ +-BR IF YES 
3547 016510 005767 163020 TST SPASS +7 1F FIRST PASS OF PROGRAM 
3548 016514 001406 BEQ 1$ ii INHIBIT | TERATIONS 
3549 016516 005267 162662 INC $ICNT ++ INCREMENT ITERATION COUNT 
3550 016522 026767 162764 162654 CMP STIMES, SICNT ++CHECK THE NUMBER OF ITERATIONS MADE 
3551 016530 002024 BGE SOVER ++BR IF MORE ITERATION REQUIRED 
3552 016532 012767 O00001 162644 15%: MOV #1,S1CNT ;;REINITIALIZE THE ITERATION COUNTER 
3553 016540 016767 OO0COS6 162744 MOV SMXCNT,STIMES ;+;SET NUMBER OF ITERATIONS TO DO 
3554 016546 105267 16230 S$SVLAD: INCB STSTNM ;;COUNT TEST NUMBERS 
3555 016552 116767 162624 162752 MOVB STSTNM.STESTN +;SET TEST NUMBER IN APT MAILBOX 
3556 016560 011667 162622 MOV (SP), SLPADR +;SAVE SCOPE LOOP ADDRESS 
3557 016564 011667 162620 MOV (SP), SLPERR +; SAVE ERROR LOOP ADDRESS 
3558 016570 005067 162720 CLR SESCAPE ++CLEAR THE ESCAPE FROM ERROR ADDRESS 
3559 016574 112767 000001 162613 MOVB #1, SERMAX +;ONLY ALLOW ONE(1) ERROR ON NEXT TEST 
3560 016602 016777 162574 162632 SOVER: MOV STSTNM. ADISPLAY +; DISPLAY TEST NUMBER 
3561 016610 016716 162572 MOV SLPADR, (SP) ;;FUDGE RETURN ADDRESS 
3562 016614 000002 4S: RTI 
3563 016616 001407 BRW: 1407 
3564 016620 000432 BRX: 432 
3565 016622 000005 SMXCNT: 5 ;;MAX. NUMBER OF ITERATIONS 
3566 .SBTTL TRAP DECODER 
3567 
3568 55 MAXKKAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA EAE EES 
3569 ;HTHIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAP” INSTRUCTION 
3570 ;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
3571 ;¥OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
3572 >*GO TO THAT ROUTINE. 
3573 
3574 016624 010046 STRAP: MOV RO, - (SP) +; SAVE RO 
3575 016626 016600 000002 MOV 2(SP),RO +;GET TRAP ADDRESS 
3576 016632 005740 TST - (RO) +;BACKUP BY 2 
3577 016634 111000 MOVB (RO), RO +,GET RIGHT BYTE OF TRAP 
3578 016636 006300 ASL RO +;POSITION FOR INDEXING 
3579 016640 016000 016660 MOV STRPAD(RO).RO «+; INDEX TO TABLE 
3580 016644 000200 RTS RO +;GO TO ROUTINE 
3581 
3582 


>; THIS 1S USE TO HANDLE THE "GETPRI™ MACRO 
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016646 
016650 
016656 


016660 
016662 
016664 
016666 
016670 


016672 
016674 
016676 
016700 
016702 
016704 
016706 
016710 


016712 
016716 
016722 
016726 
016732 
016736 
016744 
016752 
016760 
016762 
016764 


016766 
016774 
017000 
017006 
017012 
017020 
017026 
017032 
017040 
017046 
017052 


011646 
016666 
000002 


016646 
013042 
014560 
014534 
014574 


013020 
013324 
013432 
013442 
013642 
013702 
013734 
014112 


006367 
006367 
006367 
006367 
006367 
016767 
162767 
042767 
000207 
000240 
000290 


016767 
005267 
016767 
005267 
016767 
016767 
005267 
016767 
016767 
005267 
016767 
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000004 


000044 
000040 
000034 
000030 
000024 
000020 
000001 
000037 


000126 
000120 
000114 
000106 
000102 
000074 
000066 
000062 
000054 
000046 
000042 


000002 


000020 
000912 
000004 


162716 
162706 


162676 
162674 


162660 
162656 


162646 


TRAP DECODER 


STRAP2: MOV (SP), -(SP) 
OV 4(SP),2(SP) 
RTI 

.SBTTL TRAP TABLE 


SEQ 0070 


;;MOVE THE PC DOWN 
;;MOVE THE PSW DOWN 
;;RESTORE THE PSW 


;XTHIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 


**BY THE “TRAP” INSTRUCTION. 


ROUT INE 
STRPAD: . WORD  $TRAPZ 
TYPE :;CALL=TYPE 


+; CALL=TYPOC 
+;CALL=TYPOS 


STYPON ;;CALL=TYPON 


. SCOP 1 
. INSTR 
. INSTER 
. PARAM 


+; CALL=SCOP1 
+; CALL=INSTR 
+; CALL=INSTER 
+; CALL=PARAM 
.SAVOS ;;CALL=SAVOS 
.RESOS ;;CALL=RESOS 
. CONVRT ;; CALL=CONURT 
SETFLG ;;-CALL=SETFLG 


TRAP +1 (104401) 
TRAP +2( 104402) 
TRAP +3( 104403) 
TRAP +4 (104404 ) 


TRAP +5( 104405) 
TRAP +6( 104406) 
TRAP +7( 104407) 
TRAP +10( 104410) 
TRAP +11(104411) 
TRAP +12(104412) 
TRAP +13(104413) 
TRAP +14( 104414) 


TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 


ettssttsttttttttttttttttttttttsttt este tt sete tsjt ets tsssies! 


UTILITIES 


Mrtttitttttititttt ttt ttt ttttittttttttt titi ttt t titi ttt t tts 
> THIS UTILITY CALCULATES PPIORITY LEVEL 


DULEV: ASL DUPRT ;SHIFT LEFT 
ASL DUPRT ; 
ASL DUPRT ; 
ASL DUPRT ; 
ASL DUPRT  ; 
MOV DUPRT, LESS1 -MOVE THIS TO LESS! 
SUB #1,LESS1 CREATE LESS! 
BIC #37,LESS1 CLEAR TNZVC 
RTS PC 
DUPRT: PRS 
LESS1: PRY ;LEVEL TO ALLOW INTERRUPTS 
‘NEW DU HODRESSES 
DUADOR: MOV DUBASE. RXCSR + XXXO 
INC DUBASE 
MOV DUBASE.HRXCSR =; XXX1 
INC DUBASE 
MoV DUBASE.RXDBUF ;XXX2 
MOV DUBASE.PARCSR ;XrX2 
INC DUBASE 
MOV DUBASE.HRXDBUF ;XXxX3 
MOV DUBASE. HPARCSR =; XXX3 
INC DUBASE 
MOV DUBASE. TXCSR > XXX4 
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D20UGB. M11 31-MAY-77 09:4 TRAP TABLE 
3640 017060 005267 000034 INC DUBASE 
3641 017064 016767 OO00030 162636 MOV DUBASE.HTXCSR =; XXX5 
3642 017072 005267 000022 INC DUBASE 
3643 017076 016767 OO00016 162626 MOV DUBASE. TXDBUF ;XXX6 
3644 017104 005267 000010 INC DUBASE 
3645 017110 016767 OO0004 162616 MOV DUBASE.HTXDBUF + XXX7 
3646 017116 000207 RTS PC 
re 017120 o00000 DUBASE: 0 
3649 THIS UTILITY POKES THE MAINT DATA BASED UPON THE 
3650 ; INFORMATION CONTAINED IN STMP1 AND IT !S 
3651 SHIFTED IN BY THE CONTENTS OF SHIFT 
3652 017122 042777 O40000 162576 RPOKE: BIC #MTDATA, dTXCSR 
3653 017130 005067 162346 CLR STMPZ 
3654 017134 006067 162340 ROR STMP1 ;FORCE CARRY 
3655 017140 006067 162336 ROR S$TMP2 ;PICK UP CARRY IN BIT 15 
3656 017144 006267 162332 ASR STMP2 ;SHIFT INTO BIT 14 
3657 017150 042767 100000 162324 BIC #BIT1S, STMPZ CLR BIT 15 
3658 017156 056777 162320 162542 Bis STMP2, ATXCSR ;>POKE MAINT DATA 
3659 017164 042777 O20000 162534 Bit #CLK, ATXCSR ;POKE CLK 
3660 017172 052777 O20000 162526 BiS #CLK, ATXCSR ; 
3661 017200 005367 161716 DEC SHIFT 
3662 017204 001346 BNE RPOKE 
oo 017206 000207 RTS PC 
664 
3665 > THIS ROUTINE CALCULATES ODD PARITY FOR AN § BIT CHAR 
3666 017210 016767 162264 162264 ODDS: MOV STMP1,STMP2 ; SAVE TEMP! 
3667 017216 005067 162262 CLR STMP3 
3668 017222 012727 0000190 MoV #8... (PC)+ 
3669 017226 006000 4S: 0 
3670 017230 006067 162246 1$: ROR STMP2 
3671 017234 005567 162244 ADC STMF 3 
3672 017240 005367 177762 DEC 4$ 
3673 017244 001371 BNE 1$ 
3674 017246 006067 162232 ROR STMP3 
3675 017252 103404 BCS 2$ 
3676 017254 052767 OOO400 162216 BIS #BITS,S$TMP1 SET ODD PARITY 
3677 017262 000403 BR 3$ 
3678 017264 042767 O00400 162206 2%: BIC #B ITS, STMP1 *CLR EVEN PARITY 
3679 >STMP1 NOW HAS ODD PARITY CHARACTER 
rey 017272 000207 3$: RT Ss PC 
681 
3682 > THIS ROUTINE we oe EVEN PARITY FOR AN § BIT CHARACTER 
3683 017274 016767 162200 162200 EVENS: MOV STMP1,STMP2 > SAVE TEMP 1 
3684 017302 005067 162176 CLR STMP3 
3685 017306 012727 000010 MOV #8. .(PC)+ 
3686 017312 000000 4$: 0 
3687 017314 006067 162162 1$: ROR STNP2 
3688 017320 005567 162160 ADC STMP3 
3689 017324 005367 177762 DEC 4§ 
3690 017330 001371 BNE 1$ 
3691 017332 006067 162146 ROR STMP3 
3692 017336 103004 BCC 2% 
3693 017340 052767 O00400 162132 BIS #8178, STMP1 »SET EVEN PARITY 
3694 017346 000403 BR 3$ 
3695 017350 042767 O00400 162122 2%. Bic #B iTS, STMP1 >CLP OOD PARITY 


SEQ 0071 
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3696 ;$TMP1 NOW HAS EVEN PARITY CHARACTER 

3697 017356 000207 33: RTS PC 

3698 017360 062716 000002 TRPREG: ADD #2, (SP) ;ALLOW IT TO “CRUNCH” INTO ERROR BACK 
3699 ;1N MAIN PART OF THE PROGRAM 

3700 017364 000002 RTI 


701 000001 _ END 
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003200 
000000 
000000 
000000 
000000 
001166 
000000 
000000 
000000 
000000 
000000 
000000 
00C000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
oco000 
000000 
013641 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000040 
000001 
000200 
000100 
000000 
000000 
000000 
000000 
000000 
000000 
001154 


31-MAY-77 09: 47 


8 
4 ty 


916 
1231% 


| 6 
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1263% 1264% 1271k 2812 2815 2825 


30738 


3189 


1268k 1269 12788 12778 28198 2831% 


SEQ 0073 


2835 























BITW 

BiTO 

BiTOO 
BiTO1 
BiTO2 
BITO3 
Bi TO4 
Bi TOS 
BiTO6 
B1T07 


DISPLA 
DISPRE 


BI NHRD 
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BASE IV 


001162 


000020 
000040 
000100 
000200 
000400 
001000 
000014 
000001 


016616 
016620 
010000 
012576 
014106 
012672 
020000 


012746 
104413 
001124 
000015 
000200 
020000 
177570 
013636 
015301 
002132 
002067 
001442 
000174 


21- 38 77 +09:04 PAGE 7 
9:4 CROSS REF ERENCE TABLE -- USER SYMBOLS 


2839 


2820% 


31408 
1857 
809 


J 6 


2832% 2837 2838% 


1864 1876 1883 
971 1002 1844 


961 995 3177 
1711 1712 1715 
959 976 1733 
801 958 975 
800 957 974 
799 956 973 


968 1001 
967 1000 
966 999 1855 
9€5 998 
964 997 
£03 963 979 
962 978 


1610 1613 1614 
2560 2633 2701 


1754 1757 1758 
2494 2495 2497 
2644 2701 2707 


36098 

2499% 2503" 2572% 
1039 10858 

1074% 

11894 3176% 35608 


1893 


996 


1618 
2756 


1762 
2498 
2708 


2576% 


2840% 


1908 


1720 
1737 
3184 
3509 
3657 


3676 


1620 


1764 
2560 
2710 


26454 


2841 


1912 


1722 
1738 


3516 


3678 


1874 


2351 
2567 
2711 


2649% 


284 2% 


1919 


3545 
1742 


3693 


1889 


2378 
2568 
2756 


2843 


1744 


3695 


1906 


2414 
2570 
2762 


Z2844% 


1918 


2421 
2571 
2763 


SEQ 0074 


2351 


2422 
2633 
2765 


v4 
™ 
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DZ2DUQ-B8 MACY11 30(1046) 21-SEP-77 09:04 PAGE 78 
DZDUGB. M11 31-MAY-77 09: 47 CROSS REFERENCE TABLE -- USER SYMBOLS 


DNA = 100000 7998 9928 1974 

DNAINT= OOO040 806% 999% 1669 1670 1673 1674 1678 

dsc =. =_—« 100000 7638 956% 1953 

DSINTE= OO0040 7738 9668 1549 1550 1553 1554 1558 

DSR = 001000 769% 9628 

DSWR = 177570 5868 842 1155 

OTR = 000002 777% 9708 1433 1434 1437 1438 1442 

DT1 002116 1026 1030 1034 10808 

OT4 002126 1038 1083% 

DUADDR 016766 1230 2836 36298 

DUBASE 017120 1226 1229 2835% 3629 3630% 3631 3632% 
3639 3640% 3641 3642k 3643 3o44x 3645 

DULEV 016712 1288 36168 

DUPRT 016762 1287k 3616k 3617% 3618% 3619% 3620 3621 

DURIS 001740 1054%  2839% 

DURIV 001736 1053% 1237 1240 1241 2837% 2844 

DUTIS 001744 10568  2843% 

DUTIV 001742 1055%  2841% 

EIGHT = 006000 7948 9878 2354 2381 2636 

EMTVEC= 000030 6758 1140K 1141% 

EM1 001762 1024 106608 

ENZ 002022 1028 10668 

EMS 062043 1032 10698 

EM4 001746 1036 10588 

ERRCNT 001114 7038 

ERRVEC= 000004 €688 1153 1154% 1165* 3521 35224 3524% 

EVENS 017274 36338 

EVEPAR= 001400 7978 9908 

EVPAR = 000400 7868 979% 

Fiv—e = 000000 7918 9848 2417 2704 2759 

FRMERR= 020000 7828 9758 2008 

GNS = K&KEKX U 3597 3598 3599 3600 3603 3604 3605 

HOXEN = 000010 808% 1001% 1629 1630 1633 1634 1638 

HILIM 013634 3024* 3054 30708 

HLOO 001130 7128 1080 3207% 

HLD1 001132 7138 1080 3208% 

HLD2 001134 7148  3209% 

HLD3 001136 7158 3210% 

HLD4 001140 7168 8=3211% 

HLOS 001142 7178 =©3212% 

HLD6 001144 7188 3213% 

HOLD 001120 708% 1360% 1490 1814 2065 2128 2149 
2282 2298 2313 2328 

HPARCS 001724 10478 1385% 3637% 

HRXCSR 001714 10438 1354% 1844% 3631% 

HRXDBU 001720 1045# 1370% 3636% 

HT = 000011 578% 2950 2991 

HTXCSR 001730 10498 1400% 1855% J3641% 

HTXDBU 001734 10518 1415% 3645% 

INBUF 016122 1296 1300 3000 3030 3148 3152 34798 

INIFLG 001172 7438 861199 1202% 

INSTER= 104407 1304 3049 3157 36058 

INSTR = 104406 1221 1232 1242 1253 1278 1294 1307 

INSTRZ 013440 2997 3009 30188 

10TVEC= 000020 6738 1138% 1139% 


1SymoD= 000000 790% 9838 2374 2381 2697 2704 2752 


1680 
1560 


1448 


3633 
36478 


36258 


3527% 


2606 
1640 


2174 


1311 


2759 


1452 


3634 


3607 


2197 


1315 


2123 


3635% 


3608 


2212 


1319 


2192 


3636 


3609 


1330 


2277 


3637 


3610 


2251 


2890 


} 
| 
! 
j 


SEQ 0075 


2323 


3638% 


2266 


36048 


on: L 6 
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jieey 901153 7268 1207% 1322 19048 2112 


79 
DZDUGB. M11 31-MAY-77 09: 4 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0076 
KEEPAD 001156 7318 1229" 1231 1275 1277 2831 
KEEPIV 001164 7348 1240 2832 
LASTAD © 001160 732% 1258 1269 1283 
LESS1 --016764 3621x 3622k 3623% 36268 
LF = Q00012 579% 2985 2991 
LIGHTS 001102 6938 2856" 
LIMITS 013566 3040 =. 30548 
LOBITS 013640 3026x 3058 30728 3073 
LOCK - 01110 701% 2910 
LOKFLG 001174 745% 
LOLIN 013632 3023x 3056 30698 
NASK1 007324 21808 
MASK2 007342 21868 
MASK3 007432 22188 
MCNTG 016067 2885 34698 
MCOH ©=-15313 2814 34028 
MCRLF 015413 3102-34158 
MDATA 016226 31223133): 34838 
MEPASS 015462 2807 34228 
MEXT = 010000 8138 1006 1906 i918 
MEXTJ 016027 1320-34638 
MINT = 004000 8128 10058 1874 1889 2351 2378 2414 2487 2560 2633 2701 2756 
MLASTD 015247 1254-33958 
MLOCK 015526 34298 
MMNEH 016110 2290 =. 34738 
MMSWR 016077 2837 9. 34718 
MMULT 015220 1243-33918 
MPFAIL 015416 3373-34168 
non 015407 3016 «=. 34148 
MR 015507 1341 34268 
MRANGE 015343 1279-34078 
MREGAD 015170 1222-33878 
MRESET= 000400 8038 996% 1443 1472 1510 1539 1559 1579 1599 1619 1639 1659 1679 


1699 1721 1743 1763 1783 1825 1826 1829 1830 1839 1854 1888 1917 

1930 1941 1952 1963 1973 1984 1996 2007 2018 2029 2040 2078 2091 ~ S 
2107 2346 2348 2373 2375 2409 2411 2482 2484 2555 2557 2628 2630 

2696 2698 2751 2753 


MSYNC 015561 1295 34348 


MTDATA= 040000 8008 9938 1773 1774 1777 1778 1782 1784 1874 1879 1887 1906 1911 
1916 2351 2378 2414 2487 2560 2633 2701 2756 3652 

MTITLE 015122 1201 33808 

MTSTPC 015513 1331 34278 

MULTO 001152 7258 81245 1246 2810 

MVECTO 015155 1233 33858 

MHIREY 015750 1316 34558 

MWIRES 015700 1312 34488 

MHIREG 015627 1308 34418 

NEXT 001106 7008 

NOPAR = 000000 7958 9888 2354 2381 241? 2490 2563 2636 2704 2759 

ODDPAR= 001000 7968 989% 

0008 017210 36668 

ONCE 002610 1200 12038 

OPTCLR 001151 7248 «=61318 1446 1475 1513 1799 1840 2043 


OUT 013000 2876 2878 2880 2884 28968 
OUTCRY 012570 2808 28478 





Mh 6 
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OUTMUL 003166 1251 1276 12878 

QUT: 007774 2115 2243 2292 23388 

ouUT2 007520 2166 22468 

OUT3 007650 2168 22938 

OVRRUN= 040000 7818 9748 ©2019 

PARAM = 104410 1223. 1234 1255 1280 1332 2891 36068 

PARAM! 013472 30298 3050 

PARCSR 001722 10468 1382k 2347x 2354k 2374" 2381x 2410 2417k 283% 2490K 2556 2563%  2629% 
2636% 2697% 2704% 2752k 2759%  3634% 

PAREN = 001000 785% «(978% 

PARER = 010000 7838 9768 «41997 

PARERR 013546 3032. 3034 +3036 3045% 3055 3057 3059 

PART! 013630 3048 30688 

PASCNT 001112 7028 1176k 2855% 2856 2857 

PFTAB 15114 3371-33778 

PIRQ = 177772 5858 

PIRQVE= 000240 6798 

POPRO = 012600 758% «9518 

POPISP= 005726 7568 42949 

POP2SP= 022626 760% 953% 

PRO. = 000000 602% 

PR1 = OO0040 603% 

PR2 = 000100 604s 

PR3 = 000140 605% 

PRY = ‘000200 606% 3626 

PRS = 000240 €07% 3625 

PR6 = 000300 BURR 

PR7 = 000340 609% 1350 1366 1381 1396 1411 

PSs =:177776 582% 583 

PSH = 177776 5838 

PUSHRO= 010046 7578 «9508 

PUSHIS= 005746 755% «U8 

PUSH2S= 024646 759% «9528 

PWRVEC= 000024 6748 1144xX 1145x 

RDSH 013006 2886% 2896 28988 3047 

RECACT= 004000 767% 9608 1992 2355 2359 2363 2382 2386 2390 2438 267 2451 2611 
2520 2524 2584 2593 2597 2657 2666 2670 

REPLAY 012474 2827 2833 28358 

RESTAR 615020 3351 «33578 

RESTRT 012654 2328 2859 28668 

RESVEC= 000010 669% 

RESOS = 104412 36088 

RETURN 001104 699% 1181 1338% 1340x 1342 32376 

RING = 040000 7648 «9578 

RINTEN= 000100 7728 «=—s«965RSs«1569 -«1570.—Ss«s1S73.—=—«i«1S74— «1578 ~~—s«1880 

ROTADD 001170 °388 12508 1262 1264 1266" 1271 12708 28228 2825 2829% 

RPOKE 017122 2429 2443 ~=S««2502Ss«2516 = s2575 Ss 2589. «Ss «2648-—Ssi2662)Sss27lH~=S2728)=Sss27322=Ss2771~Ss 2783 
2787? 36528 3662 

RTS = 000004 7768 42 «96KC1NGZ)SCi«aAMG3.s«dMNGHSC«dAMG/Z~—s«aN7'—~—s«*a?7]”~—=«1HBLC2N4N)S2207—Ss 2261 ~S- 2308 

RUNA = 000000 1 51 1402s S13 

RUNB = X¥88%K U 21 56 143 518 

RUNC = S288%% U 21 56 143 518 

RUND = RR88%X U 21 56 143 —s«*B 1B 

RUNE = X88E% U 21 56 143 —s«&B AB 

RUNF = 8825%% U 21 6 14318 


5 
RUNIT 012400 2813 28198 2826 
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DZ2DUGB. Mi1 

RACSR 001712 
RXDBUF 001716 
RXDONE= 000200 
RXERR = 100000 
SAVIT 014342 
SAVPC =©001126 
SAVSP 001116 
SAVOS = 104411 
SCOP1 = 104405 
SEND = 000020 
SEREC 001150 
SETFLG= 104414 
SEVEN = 004000 
SEXMIT 001147 
SHIFT 001122 
S!X = 002000 
SPACNT= 014107 
SRD = 002000 
STACK = 001100 
STO = 000010 
STFLG 001173 
STKLMT= 177774 
STPSYN= 000400 
sv05 013650 
SHR 001440 
SWREG 000176 
SWREGL 013010 
SWG = 00000! 
SWOO = 000001 
SWO1 = 000002 
SWO2 = 000004 
SWO3 = 000010 
SWO4 = 000020 
SWOS = 000040 
SWO6 = 000100 
SWO7 = 000200 
SWO8 = 000400 
SWO9 = 001000 
SWi = 000002 
SWi0 = 002000 
SW11 = 004000 
SWi2 = 010000 
SWi3 = 020000 


21-SEP-77 09:0 
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4 PAGE 81 
1433 = 1434 
1481 1500% 
1540 1549% 
1589x% 1590 
1931 1942 
2154 2159 
2256 2261% 
2359 2362% 
2450x% 2451 
2565% 2581 
2666 2669% 
1985 1987 
2604 2637 
1931 
2030 
3357 
1649 1658 
2167 
1313 1317 
2563 
2165 
2441x 2500% 
3661% 

2490 

3129K =—- 31398 
1172 1326 
1500 1501 
1589 1590 
1155x 1157 
3196 3199 
1188 1193 
1209 

1328 

2908 


1437x 


1653 
1321 


2514% 


N 6 
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1654 
36 10% 


2573% 


1505 


1594 


1170% 
3516 
2894 


1442% 


1658 


2587% 


1599 


1598 


1186 
3530 
2901 


1660 


2646% 


1515 


1600 


1188% 
3532 


2660% 


1519 


1193 
3538 


— 


1462% 1463 
1519 1529% 
1569% 1570 
1797 1842% 
2117 2118 
2207% 2217 
2208% 2318 
2390 2419% 
2517 2520 
2600 2608 
2760% 2772 
2093 2418 
2775 2790 


2714 2726% 


2169 2222 


1209 1328 
3545 


SEQ 0078 

1466 1467 | 
1530 1533% 
1573% 1574 
1843-1845 

2123% 2133 

22228 2232 

2323% 2333 

435 2438 

2523% 2524 

2638% 2654 

2849 3629 

2458 = 2491 


2730% 2769% 


2246 2293 


2877 2908 


LE 
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SW14 = 040000 
SWiS5 = 100000 
SW2 = 000004 
SW3 == 000010 
SW4 = 000020 
SWS == 000040 
SW6 = 000100 
SW? == 000200 
SW&8 = = _-000400 
SH9 = 001000 
SYNCNO 001146 
SYNEXT= 020000 
SYNINT= 030000 
SYNSCH= 000020 
SYSTST= 014000 
TBITVE= 000014 
TEMP 016164 
TKVEC = 000060 
TPVEC = 000064 
TRAPVE= OO0034 
TRPREG 017360 
TRTVEC= 000014 
TST1 003374 
TSTi0 004054 
TST11 004200 
TST12 004314 
TST13  OO4404 
TST14 004474 
TST15 004564 
TSTi6 004654 
TST17 «=©004744 
TST2 003454 
TST20 005034 
TST21 005124 
TST22 005214 
TST23 005304 
TST24 005374 
TST25 005464 
TST26 005554 
TST27 005644 
TST3 003526 
TST30 005746 
TST31 006010 
TST32 006162 
TST33 006300 
TST34 006404 
TST35 006426 
TST36 006450 
TST37 006472 
TST4 003600 
TST40 006514 
TST41 006536 
TST42 006570 
TST43 006612 
TST44 006634 
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13488 


2433 
2354 
2417 
1530 
2565 


34818 


1395 
2867 


2506 
2483 


1533 
2596 


1410 
3506 


B 7? 


2579 2652 
2490 2556 2563 


1534 1538 1540 
2638 2669 2705 


36988 





2629 
2358 
2760 


2636 
2362 


2385 


2389 


SEQ 0079 


2419 
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TST45 006656 
TST46 006700 
TST47? 007002 
TST5 003652 
TST50 4 =©007042 
TSTS1 007074 
TST52 007774 
TST53 010106 
TSTS54 010220 
TSTSS 010526 
TSTS56 011034 
TSTS7 =—-011342 
TST6 003724 
TST6é0 8=©011650 
TST61 012076 
TST? 003740 
TTST 016306 
TXCSR 001726 
TXDBUF 001732 
TXDONE= 000200 
TXINTE= 000100 
TYPE = 104401 
TYPOC = 104402 
TYPON = 104404 
TYPOS = 104403 
USER = 000000 
volo = 000001 
WROCNT 014104 
ZERO 012406 
SAPTHD 002136 
GASTAT= 44e44% U 
SATYC O00024R 
SATY1 OOOOOOR 
SATY3 O00006R 
SATY4Y Q00016R 
SAUTOB 001434 
SBASE 001602 
SBDADR 001422 
SBDDAT 001426 
S$BELL 001516 
$COW1 #001606 


001610 


21-SEP-77 09:0 
9: 47 


3179 


C 7 


4 PAGE 83 
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1443x 1472* 1510k 1539% 1559k 1579% 
1620 1629% 1630 1633% 1634 1638% 
1659% 1660 1669% 1670 1673% 1674 

1698xk 1699x 1700 1711% 1712 1715% 
1738 1742xk 8 1743k 861744 1753x 1754 

1777k% 1778 1782k §=61783k 861784 1794% 
1856 1862% 1863 1874x 1876 1879% 
1911k% 1912 1916% 1917k 1918k 1919 

1984x 1996k 2007% 2018% 2029% 2040% 
2348k 2351k 2373k 2375k% 2378k 2409% 
2484% 2487k% 2494K 2495k 2497k 2498% 
2628% 2630% 2633k 2640 2641% 2643% 
2711% 2751k 2753k 2756% 2762k 2763% 


1425 364 3% 
1689 1690 1693 1694 1698 1700 


2806 2809 2814 2885 2887 2955 
3240 3242 3245 3247 3251 258 


31378 


3207 


1599% 
1639% 
1678 
1716 
1757% 
1798 
1883 
1930% 
2077% 
2411% 
2555% 
2644 % 
2765% 


2998 
3322 


3101 
35978 


1613% 


3132 


SEQ 0080 


3179 


0 7 
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SCHARC 013320 2957k 2967k 2974 2983x 29888 

SCKSWR= AKKKKK U 3603 

SCMTAG 001400 8228 1131 1132 1140 1146 1147 

$cmi = 000006 8548 8558 8568 857% 858% 859% 860% 
$CN2 = 000014 8548 855% 856% 857% 858% 859% 8608 
$cMn3 = 000006 852% 854 

$cm4 = 000006 860% 861% 862% 863% 864% 865% 8668 
SCPUOP 001554 891% 

SCRLF 001523 8708 2956 2991 3187 3207 3223 3242 3247 3251 
$O00WO 001612 9218 

SDDWi 001614 9228 

SDDW10 001636 9318 

$D0W11 001640 9328 

SOOW12 001642 9338 

S$ODW13 001644 9348 

S$D00W14 001646 935% 

S$ODWiS 001650 9368 

$DDW2 001616 9238 

$D00W3 001620 9248 

S$DOW4 001622 9258 

SDDWS 001624 9268 

$DDW6 001626 9278 

$DDW7 0061630 928% 

S$D0W8 001632 9298 

SDDW9 001634 9308 

SDEVCT 001536 282% 

SDEVM 001604 9188 

SE = 000002 5348 

SENDAD 012644 1094 28628 

SENV 001546 536 8878 1203 2935 2996 3189 

SENVMN 001547 536 888R 1168 2937 2942 

SERFLG 001403 8258 1177k 2854x% 3174* 3207 3374% = 3490 2534 3536 3542* 3566 
SERMAX 001415 8318 1148% 3536 3559% 3566 

SERROR 014160 1140 31738 

SERRPC 001416 8328 1080 1083 1179% 2853k 3181k 3182k 3183 3207 3229 3375% 3505% 
SERRTB 001652 1022% 3237 

SERRTY 014400 32228 

SERTTL 001412 8298 1178% 3180% 3207 

SESCAP 001514 8678 1147% 3202 3204 3207 3558% 

SETABL 001546 8868 

SETEND 001652 9398 1119 

SFATAL 001530 536% 879% 

SFFLG O00244R 538k 

SFILLC 001456 8508 2960 2991 

SFILLS 001455 849% 2991 

SGDADR 001420 8338 

$GDDAT 001424 8358 

SGTSWR= *52%2% U 3602 

SHIBTS 002136 11148 

SICNT 001404 8268  3549% 3550 3552% 3565 

SINTAG 001435 8408 

SITEMB 001414 8308 3183% 3191 3207 3226 

SLF 001524 8718 2991 3207 

SLFLG 000243R 5 368k 

SLPADR 001406 8278 1149% 28674 3511% 3540x 3556% 3561 3565 
SLPERR 001410 828% 1150% 3201 3540 3557% 3565 


DZ20UQ-B MACY11 3011046) 
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SMADR 1 
SMADRZ 
SMADR3Z 
SMADR4Y 
SMAIL 

SMANS1 
SMANSZ 
SMANS3 
SMANS4 
SMBADR 
SMFLG 

SMSGAD 
SMSGLG 


SNULL 


001560 
001564 
001570 
001574 
001526 
001556 
001562 
001566 
001572 
002140 
00024 2R 
001542 
001544 
001526 
001557 
001563 
001567 
001573 
016622 
000000 
001454 
000000 


014756 
014760 
016602 
001534 
002144 
014762 
001522 
PS 8 8 8 8 | 
oo 2 8 8 | 
RXXKKX 
KaKKKK 
001460 
001462 
001464 
001466 
001470 
001472 
001474 
bo 2 2 oo | 
aaaKR% 
016270 
000017 
177777 
016546 
002136 
177400 


cccc¢c 
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1115 


1119 


1138 


867 
1462 
1753 
1996 
2628 
3491 


1167 


13938 
16678 
19508 
23718 


3301k 


3541 
3547 


1140 


2935 


14084 
1687% 
1961% 
24078 


3312% 


3551 
3566 


1142 


—E 7 


3189 


14238 
1709% 
19718 
24808 


33388 
35608 


1144 


3555 


14318 
17318 
19828 
25538 


1146 


14608 
17518 
19948 
26268 


1147 


14988 
17718 
20058 
26948 


1149 


1349 
1609 
1902 
2091 
3168 
3528 


15278 
17918 
20168 
27498 


3174 


15478 
18238 
20278 


3199 


1380 
1649 
1941 
2346 
3177 
3531 


1567% 
18378 
20378 


3206 


15878 
1872% 
20758 


3500 


1410 
1689 
1963 
2409 
3196 
3535 


, F 


————d 
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3536 3543 3544 3545 3557 3560 3565 

SSWREG 001550 889% 1170 

SSWRMK= 000000 3495 3496 3532 

STESTN 001532 880%  3555% 

STIMES 001512 8668 1146k 3543x 3550 3553x 3565 

STKB 001446 845% 2881 3004 3012 3515 

STKS 001444 8448 2879 3002 3513 

STMPO 8 ©001476 8608 

STMP1 001500 8618 2428k 2442k 2501% 2515% 2574% 2588% 2647% 2661% 2715% 2727k 2731% 2770% 
2782% 2786% 3654% 3666 3676k 3678k% 3683 3693% 3695% 

STMP2 001502 8628 3653k 3655% 3656% 3657k 3658 3666% 3670k 3683k  3687% 

STMP3 001504 863%  3667k 3671k 3674k J3oeB4k 388k  3691% 

STMPY 001506 8648 

STMPS «001510 8658 

$TN = 000062 5368 1347 13498 1363 1365%# 1378 13808 1393 13958 1408 14108 1423 14258 


15898 1607 16098 1627 16298 1647 16498 1667 1669% 1687 1689% 1709 17118 
1731 17338 §=©1751 17538 §=61771 1773# =61791 17938 1823 1825# 1837 18398 1872 
18748 1900 19028 1928 19308 1939 19418 1950 19528 1961 19638 1971 19738 
1982 19848 1994 1996% 2005 20078 2016 20188 2027 20298 2037 2039% 2075 


1431 14338 1460 14628 1498 1500 1527 15298 1547 15498 1567 15698 1587 
20778 2089 20918 2104 21068 2344 2346# 2371 23738 2407 2409% 2480 24828 


STPB 001452 8478  2980% 2991 3012% 

STPFLG 001457 8518 2929 2991 

STPS 001450 8468 2978 2991 3010 

STRAP 016624 1142 35748 

STRAPZ 016646 35858 3596 

$TRP = 000015 35898 35988 35998 726008 36018 3603 36048 36058 36968 36078  3608% 36098  3610% 
36118 

STRPAD 016660 3579 35968 

STSTM 002142 11168 

STSTNM 001402 8248 1180% 1335 1338 2852% 3176 320? 3213 3490 3511 3532 3554% 3555 
3560 3566 

STYPBN= Xxxxx% U 3601 

STYPOS= X4x44% U 3601 

STYPE 013042 536 29298 3589 3597 

STYPEC 013254 2959 2966 2973 29788 2979 

STYPEX 013322 2984 2986 29898 

STYPOC 014560 32928 3598 

STYPON 014574 3291 32948 3600 

STYPOS 014534 32878 3599 

SUNIT 001540 8838 

SUNITM 002146 11188 

SUSHR 001552 £908 1205 

SVECTi 60157 9158 

S$VECT2 001600 9168 

SXTSTR 016352 3507 35198 t. 

SOFILL 014757 3288x 3292% 3302 33378 

SYOCAT= £4K4%% U 3186 351e 

. = 017366 5368 5708 6838 686% 6S 1k 7468 7478 8218 872 10788 1092 10938 10958 


10978 1103 11048 1106 1108% 1135 1149 1150 1352 1355 1368 1371 
1386 1398 1401 1413 1416 1426 1435 1439 1449 1453 1464 1468 
1482 1492 1502 1506 1516 1520 1531 1535 1541 1551 1555 1561 
1575 1581 1591 1595 1601 1611 1615 1621 1631 1635 1641 1651 
1661 1671 1675 1681 1691 1695 1701 1713 171? 1723 1735 1739 
1755 1759 1765 . 1775 1779 1785 1804 1808 1816 1827 1831 1847 
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003310 
013734 
012324 
013432 
013324 
G13344 
013346 
013442 
014762 
013702 
013642 
016270 
013020 
014112 
002152 
axdd4t 
002136 
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i 
——— a | 


3158 3610 


| 
3 
2882" 2883 29948  2999% 
11298 1181 2818 
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COMMEN 6808 
ENDCOM 6808 
ERPOR 5748 
1454 
1572 
1672 
1776 
1914 
2097 
2307 
2461 
2602 
2778 
ESCAPE 680% 
GETPR! 6808 
GE TSWR 680% 
MULT 680% 
NEWTST 6808 
1627 
1950 
2480 
POP 536 
PRGEND 558% 
PRGFRT 537% 
PUSH 536 
PUSSYF 555% 
REPORT 5258 
RSE TUP 5428 
sc 5348 
SCOPE 5758 
1628 
1951 
2481 
Sci 5348 
SETPRI 680% 
SETTRA 525% 
SE TUP 680% 
SKIP 6808 
SLASH 680% 
SPACE 680% 
STARS 536 
1431 
1771 
2027 
3217 
SWRSU 6808 
TRMNTRP 35898 
TSE TUP 54 34 
TYPBIN 6808 
TYPDEC 6808 
TYPNANM 680% 
TYPNUM 680% 
TYPOCS 6808 
TYPOCT 680% 
TYP TXT 6808 


SBEGIN 
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2373 


1364 
1668 
1972 
2627 


3598 


817 
1498 
1823 
2075 
3487 


3253 


2409 


1379 
1688 
1983 
2695 


3599 


872 
1527 
1837 
2089 
3568 


2016 


2628 


1424 
1752 
201? 


3604 


1100 
1587 
1928 
2371 


H ? 


3605 


1102 
1607 
1939 
2407 


3006 


1109 
1627 
1950 
2480 


1499 
1824 
2076 


3607 


1347 
1647 
1961 
2553 


1528 
1838 
2090 


3608 


1363 
1667 
1971 
2626 


1548 
1873 
2105 


3609 


1378 
1687 
1982 
2694 


1568 
1901 
2345 


3610 


1393 
1709 
1994 
2749 


1408 
1731 
2005 
2914 


| 


SEQ 0085 | 


1608 
1940 
2408 


1423 
1751 
2016 
3161 


| # 
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$8 | NAR 5548 
SBUFFE 5368 863476 
SCABLE 5568 14286 1810 2061 2124 2145 2170 2193 2208 2223 2247 2262 2278 2294 2309 


2324 
SCATCH 5288 570 
$CK 5358 2870 


SONA 552% 

SEOP 535% 2797 

SGETFL 5348 1242 1307 1311 1315 1319 

SGETPA 5348 1221 1232 1252 1278 1330 

S$GETSY 534% 1289 

SHEADE 525% 559 

SINSTR 536% 2991 

$i SOB 550% 

SMATCH 547% 

SMRR 5418 1925 1936 1947 1968 1991 2002 2013 2024 

SMRRUW 5398 1428 1457 1495 1524 1544 1564 1584 1604 1624 1644 1664 1684 1706 1728 
1748 1768 

SMRW 540% 1820 

SNSG 536% 3380 


SPOKER 5468 2423 24396 2569 2642 2°c9 2764 
SRECAC 545% 2394 2467 2540 2613 


SRESET 5388 1443 1472 1510 1539 1559 1579 1599 1019 1639 1659 1679 1699 1721 1743 
1763 1783 1829 1839 1854 1888 1917 1930 1941 1952 1963 1973 1984 1996 2007 
2018 2029 2040 2078 2091 210? 2346 2348 2373 23? 2409 2411 2482 2484 2555 
2557 2628 2630 2696 2698 2751 2783 

SRXACT 5448 2340 2367 

SSCOPE 5348 3485 

SSCOP1 535% 2904 

SSETFL 5348 314i 

SSETVE 529% 680 

SSTART 534% 1121 

SSTRIP 5518 

SSYMBO 525% 748 941 

SSTNCR 547% 2419 2492 2565 2638 2705 2760 

STRPAR 553% 

STSTNO 5348 1347 1363 1378 1393 1408 1423 1431 1460 1498 152° 1547 1567 1587 1607 
1627 1647 1667 1687 1709 1731 1751 1771 1791 1823 1837 1872 1900 1928 1939 
1950 1961 1971 1982 1994 2005 2016 2027 2037 2075 2089 2104 2344 2371 2407 
2480 2553 2626 2694 2749 

SUN IBU 5378 1345 1361 137e 1391 1406 

SVARIA 5328 690 

SWORDF 5488 

SWORDO 5478 2686 2741 

SWORDP 5498 

SSCMRE 815% 854 855 856 857 858 859 

SSCMTN 815% 860 861 862 863 864 865 

$SESCA 680% 
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SSNEWT 6808 
1627 
1950 
2480 
SSSET 35898 
SSSETM «11678 
SSSKIP 680% 
. EQUAT 525% 
HEADE 5258 
. SETUP 5258 
. SACTI 525% 
. SAP TB 5258 
SAPTH 5258 
. SAPTY 5258 
. SCATC 525% 
. SCMTA 5258 
. SEOP 525% 
SERRO 525% 
. SERRT 525% 
. SPOWE 525% 
. SSCOP 5258 
. STRAP 5258 
. STYPE 525% 
. STYPG 525% 
ABS. 017366 


ERRORS DETECTED: 


1347 
1647 
1961 
2553 
3598 


0 
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1393 1408 
1709 1731 
1994 2005 
2749 
3603 3604 


DZDUQB,, DZDUQB/SOL /CRF =D20UQ1 EQ: RUNA, DZ0UQ2, DZ2DUGB 
RUN-TIME: 23 14 1 SECONDS 

RUN-TIME RATIO: 307739=7.8 
(59 PAGES) 


CORE USED: 


30K 


1423 
1751 
2016 


3605 


J? 


1431 
1771 
2027 


3606 


GE 
CROSS REFERENCE TABLE -- MACRO NAMES 


1547 
1872 
2104 


3610 


1567 
1900 
2344 


1587 
1928 
2371 


